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BEST OF THE "CIDER PRESS’ 


INTRODUCTION 


The SAN FRANCISCO APPLE CORE started in April of 1978 because I couldn't figure 
out how to use my Apple II. While the people in the store where I bought my 
Machine weren't exactly disdainful of my approaches for help, it became clear 
fairly quickly that they knew very little more than I did aout the beast. 


My background is in the humanities and decidedly not in the hard sciences. But 
I did seem to have a talent for organizing born out of my work in the various 
freedom and peace movements of the 60's. "let's see", I foolishly thought. 

“If Iwrite to a fewmagazines and contact a store or two, maybe I can get a 
few guys together once a month to rap..." 


Sure, kid. 


The Apple Core's menbership is now hovering around 800. We have over 400 
working programs in the library. There are around six active committees and 
aout a dozen highly active volunteers running things. 


There are at least four (count them) meetings per month, including one general, 
one political/organizational and one beginners's and one newsletter. 


We had two publications - APPLE PEELING for input and the CIDER PRESS for 
Ouput . 


Personally, I think things have gotten somewhat out of hand. 


Be that as it may, the APPLE CORE had its roots in the concept of mutual aid. 
The idea was for people who did't know much to get together and share what 
knowledge they had, and I supposed, that the little pieces of knowing wuld 


mate and reproduce) . 


It is to our credit (pat-pat-pat) that the spirit continues. The APPLE CORE is 
still a place where beginners can come and get help. But we now have a fair 
contingent of heavies who share arcane knowledge in the dark of the night, too. 
A bunch of us run computer stores or write contract programs or work at the 


source itself (Gaw-lee!). 

OF course, aside from the above, we have our strange sorts, too. 

There's dhn Sribblenonger, our somewhat competent, crude-but-effective first 
publications editor. At last report, he had sold his mansion high above 
Milpitas and has moved to Three Mile Island. 

J. Alfred Glitch needs no introduction - so we'll skip him. There's the 
nefarious Dr. Quan W. Min and his counterpart, Professor Sctmuch the good , 
both of whom carry out a classic good-and-evil struggle via modens. 

fnd, of course, there's the Commodore's Pet DOS, Tige. 

I could go on and on, but HIMEM's being approached. 


This edition of the Best of the Cider Press represents our various attempts to 
pull our computers and our sanity together . 


We hope you enjoy reading the articles and applying the suggestions as much as 
we enjoyed devising and writing them. Keep on coding. ” 


SCOT KAMINS - ONE OF THE FOUNDERS OF APPLE CORE 
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APPLE CORE 


The APPLE CORE OF SAN FRANCISCO 1s a non-profit 
organization comprised of, and supported by, Apple II 
Computer owners. The Apple Core is run entirely by 
volunteer officers and committees. The club endeavors 
to aid other APPLE owners. All members are Individuals 
(and their families), and NO shops, stores, or 
corporations are directly registered. (However, any 
shop may register an employee c/o that shop). 





MEETINGS 


MONTHLY MERTINGS are held at Fort Mason and is 
located in San Franc t Laguna and Marina 
Blvd. General The 
building is C and the room number 
Meetings are held on the first Saturday of each 
month. Anyone interested in the Apple Computer is 
welcome to attend. 


CIDER PRESS POLICY 


All manuscripts, photography, and other materials are 
submitted free and released for publication. They 
become the property of the Apple Core and the Cider 
Press. Authors should clearly mark all material 
subaitted for publication so that credit may be given. 









The publishers/editors do not necessarily agree with, 
nor stand responsible for, opinons expressed or implied 
by others than themselves in this publication. 


ALL articles appearing in the CIDER PRESS not 
copyrighted by the author may be reprinted so long as 
proper credit is given to both the Cider Press and the 
author. Proper credit is defined as article title, 
author, and the words "Printed from VOL x, NO y of the 
Cider Press. 


Permission to reprint an article may be gained by 
writing to the author c/o the CORE. 
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GENERAL FEATURES 


TERMINOLOGY 


ILVERMAN 





Just as in any other speciality, the 
people involved in data processing 
equipment have developed their own 
terminology. Some of these terms are 
defined in the following list. The 
definitions are not rigorous and the 
list 1s far from complete. 








ALPHANUERIC-Having characters only. 
A-CRT that ts an alphanumeric CRT 
displays only characters and cannot 
draw lines, etc. for graphic 
pictures. The characters displayed 
are usually those specified by ASCII. 


ASCII-Acronym for American Standard 
Code for Information Interchange. 


ASSEMBLER-Program that translates 
assembly language to machine language. 


ASSEMBLY LANGUAGE -Symbolic codes 
representing CPU instructions. 


BASIC-Beginners All-purpose Symbolic 
Intruction Code. The most common high 
level language for personal computers. 


BAUD-A unit of signaling speed derived 
from the duration of the shortest 
signaling event. If each signaling 
event Is exactly one bit, then the 
baud rate 1s the same as bits per 
second. 


BIT-One binary digit. 


BOOTSTRAP-An instruction set usually 
in ROM or RAM that is executed 
automatically when the system is 
turned on, to initialize the system. 





BUS-The very high speed communication 
path between the components of the 
computer in the mainframe. 


BYTE-A group of 8 bits. Usually one 
byte 1s used to represent a character 
in ASCII code. 


COMPILER-A program to translate from 
higher level language such as Pascal 
to machine language. 


CPU-Central Processing Unit, such as 
the 6502 in the Apple. 


DOS-Disk Operating System. 


FIRMWARE -Program built into the 
system, in ROM or RAH. 


HARDWARE -The physical components of 
the system. 


HEXIDECIMAL-A numbering system based 
on powers of 16. 


1/0-Input /Output of information to or 
from the computer. 


OCTAL-A numbering system based on 
powers of 8. 


RAM-Random Access Memory that can be 
both written on and read from. 


ROM-Read Only Memory. Memory with 
permanent instructions that cannot be 
erased. 


SOFTWARE-All programs including 
systems or applications programs. 


There are a great deal more terms used 
by computer persons today. If you 
wish to know the definition of some 
term, just write to the Cider Press, 
c/o Ken Siiverman, and I will try to 
answer them for you. 





APPLE BEEPS 
TRANSLATED 


OY ANDY HERTZFELD 


You may have wondered why the APPLE 
beeps twice when loading a BASIC 
program from tape (once at the 
beginning, once at the end), but only 
once (at the end) when loading a 
machine language program. The answer 
1s very simple: a BASIC “load” 
actually consists of TWO monitor 
loads, each of which produces its own 
beep. 


It is necessary to do two loads for 
each BASIC program because the monitor 
must know how long a program is before 
{t can read a program in. Thus before 
the body of a BASIC program is saved 
its length 1s calculated and saved 
first; thus the monitor can determine 
how much data 1s out there when 
reading it back In. If you listen 
carefully to a tape of a BASIC 
program, you'll notice that the leader 
tone makes a very short dip in pitch 
about a second or two before the main 
part of the program begins. This dip 
In pitch is actually 2 bytes worth of 
data telling monitor the length of the 
following BASIC program. 





Thus we have a very easy way to find 
out the length of a BASIC program 
without even reading the whole thing 
in! Get Into the monitor (one way 13 
to hit reset) and type 300.301R (you 
can actually use any two adjacent 
addresses) and start the tape 
recorder. This will load the length 
of the program Into the specified 
memory locations, low-order byte 
first. Then all you need do Is read 
those addresses from the monitor and 
convert them from hex to decimal - and 
there you have Iti! 





SORTING 


BY ART MACK 


One of the things that every 
programmer has to do eventually Is to 
sort some data. Described here Is one 
jay to write a sort routine in BASIC 
as follows. 

‘ 





Starting with the first element of an 
(the sort shown here 1s for an 
array of real numbers but applies to 
Integer and String arrays as well) the 
array 1s searched to find the smallest 
element (assuming we want to sort Into 
ascending order) and that element 1s 
placed in position 1 of the array. 
Next, we start with element number 2 
and find the smallest element left in 
the array and place it in position 
number 2. We continue this way with 
positions 3,4,5, etc. until we reach 
the last element in the array. Thus 
when we are finished, the smallest 
element in the array 13 in position 1, 
the second smallest in position 2, and 
30 on. 











The following example shows how to 
sort an array named “D" of dimension 
*N" (assume that all the elements of 
"D" have already been put into the 
array). 


800 FOR I = 1 TO N-1 2 REI; LOOP FOR 
N-1 TIMES, THE LAST ELEMENT WILL 
AUTOMATICALLY BE IN THE RIGHT PLACE. 
801 FOR J = I+1 TON: REM LOOP AND 
CHECK THE I'TH ELEMENT WITH ALL 
REMAINING ELEMENTS IN THE ARRAY. 

802 IF D(1)<O(J) THEN 806 : REM IF 
THE ‘TH ELEMENT IS THE SMALLEST TRY 
THE NEXT REMAINING ELEMENT. 


803 A = D(I) : REM OTHERWISE SWITCH 
THE ELEMENTS (LINES 603 - 605). 

604 D(I) = D(J) 

805 D(s) = A 

806 NEXT J : REM CONTINUE FOR THE 
NEXT J 

807 NEXT I: REM CONTINUE FOR THE 
NEXT I 


Note that the “Inner” loop (lines 801 
~ 806) 1s executed from N-1 to 1 times 
depending on the value of I, and that 
the "outer" loop (lines 800 - 807) is 
executed N-1 tim Also note that 
the routine can easily be changed to 
sort the array into descending order 
(highest to lowest values) simply by 
changing line 802 to: 


802 IF D(I)>D(J) THEN 806 





RAM? 


BY TOMY HUGHES 


You may have the impression now that 
we have an official animal, or pound 
on the APPLE keyboard with more than 
usual force, but in reality, RAM {3 an 
acronym that means Random Access. 
Memory. The APPLE can hold several 
thousand letters, numbers, and special 
characters in its memory and can look 
at them in any order (1.e. the first 
one, then the tenth, then the 102th, 
etc.), unlike a tape recorder that 
wust read from the beginning of a tape 
to the end. 








There is another meaning to RAM. It 
can be erased and written over like & 
magnetic tape. Unlike a tape, RAM is 
impermanent; when you turn the APPLE 
off, your program goes away. You turn 
it on again and you have to reload 
your favorite game. 





Rau (COMT.) 


There 18 another kind of memory, 
called ROM, or Read Only Memory. Like 
RAM, the APPLE can begin reading its 
characters from any point in memory. 

Unlike RAM, ROM 1s permanent, like a 
phonograph record; its characters are 
engraved at the factory and can never 


be changed. 


Why does the APPLE have both RAH and 
ROH? Well, any of the hundreds or 
thousands of programs we might want to 
run will fit into the same area of 
RAM. Just like erasing and reusing a 
blackboard. But a computer like tl 
APPLE also needs a special progr. 
that occasionally takes over to do 
some mundane housekeeping task. When 
you press Control and G simultaneously 
(on the keyboard) you will hear a 
Now the APPLE isn 
ly wired to produce that 
like a doorbell, but must 








beep, 
manufacture it by performing dozens of 


steps within itself. Then you hear 
it. The program that produces beeps, 
as well as others perform similar 
functions are all down in ROM 
somewhere. 





RAM for the APPLE is in the form of an 
electronic component called a chip. 
The chip has the size and app 
of a black, rectangular caterp: 
A 4k chip will have 4096 pigeonholes, 
each and any of which can hold one bit 
of information; that bit will either 
be yes or no, off or on. If the APPLE 
looks at pigeonhole 1234, for example, 
it may find the bit there to be set 
on, but we're still a long way from 
finding a number or letter. If we 
use, for example, 8 bits in tandem, we 
can represent up to 256 possible 
characters, and in fact this is done. 
The APPLE will look at pigeonhole 1234 
in 8 chips; the first chip 1s off at 
that location, the second on, and 30 
forth. So just like Morse code, we've 
spelled out a letter or number 
(actually, a unique character) at that 
address. 














So a row of 8 4k chips give the APPLE 
memory of 8096 characters. The 
APPLE will hold up to 3 rows of 4k or 
16k chips, so its memory could be 
high as 49152 characters. Ther 
be 12288 characters in ROM. The rest 
is taken up by some electronic 
functions. 


MEMORY CELLS 


OV Kan SILVERMAN 











The 16K dynamic RAM, u 
Apple, 1s getting cheaper all th 
time. In fact some mail order houses 
are advertising 16K bytes (8 units) as 
low as $65. 








Installing your own RAM 1s not a 
Problem; it 1s all explained on pag 








After talking to the Engineers 
at Apple Computer I was told that 
200ns chips exceed Apple's 
specifications, 250ns are the standard 
speed and that 300ns or slower chips 
should not be used. It seems when 
300ns or slower are used a zero will 





turn into a one once in a whil This 
has to do with the correct delay time 
between the two address strobe signals 
(during the memory access cycle). In 
addition the Apple timing doesn't 
allow long enough precharge or row 
address hold time for the slow 300ns 
parts. 








Find out what the manufacturer's 
specifications are for the RAM you 
plan to purchase before you buy. 
Write first or deal with suppliers who 
will specify the speed. 


SCREENPAUSE 


BY SOOT KamING 





It is always a good idea to include 
complete documentation as to how a 
program works within the body of a 
program. Quite often, however, that 
information takes up more than a full 
screen (1.e., more than 24 lines) to 
display. Thus the programmer needs 
some device to allow him/her to stop 
the screen from scrolling before the 
user is done reading the information 
being shown on the screen. One way to 
accomplish this goal is the delay 
loop. All you need to do is insert 
"FOR STALL=1 TO 2000:NEXT STALL" in 
‘some appropriate place in the printout 
subroutine. 





While that sethod will halt scrolling 
for a few seconds, it is not the most 
desirable way to do things. Slow 
readers will still have trouble 
keeping up, and speed readers will get 
bored. 


A less primitive method is here-in 
offered, making use of "PEEK (37)" 
(absolute vertical position of the 
cursor) and "PEEK (-16364)" (read 
keyboard strobe). | Applesoft users 
will note that the "GET" function can 
be substituted for the 
"keyboard-strobe and-clear™ peeks and 
pokes in lines 1030 thru 1050. 





O CALL -936 
10 FOR EXAMPLE = 1 TO 1000 

20 PRINT EXAMPLE 

30 IF PEEK (37) = 20 THEN COSUB 


1000: REM THIS CHECKS IF 
CURSOR IS AT TEXT LINE 20 
40 (NEXT EXAMPLE 
x BO 





1000 REM SCREENPAUSE BEGINS HERE 

1010 VTAB 23: TAB 15: REM FORMATS 
THE SCREEN FOR THE 
PROMPTER PRINTOUT 

1020 PRINT "PRESS ANY KEY TO CONTINUE" 

1030 Z=PEEK (-16364): REM CHECKS TO 
‘SEE IF AMY KEY HAS BEEN PRESSED 

1040 POKE -16368,0: REM RESETS THE 
KEYBOARD "CHECKER" 

1050 IF 2>127 THEN 1070: AEM IF A KEY 
HAS BEEN PRESSED THEN GOTO 1070 

1060 GOTO 1030: REM KEEP CHECKING 

1070 CALL -936: REM CLEAR THE SCREEN 

1080 RETURN: REM GO PUT MORE 
INFORMATION ON THE SCREEN 


R&R DEC DUMPS 


BY MAX J. WAR 





Calculations in Applesoft usually 
result in long miltidecimal number 
While the accuracy of the numbers is 
commendable, long mantissas are often 
not necessary; frequently they are 
disruptive of the three - columns - 
via - commas screen format the Apple 
provides. 








Following is a simple function for 
reducing post-decimal numbers and for 
rounding off the residuals 





Of the many functions preprogrammed in 
Applesoft, Integer 1s used to drop the 
fractional part of a number. The 
excision is sharp and clear. 


YsINT(3.4729): PRINT Y 


It doesn't round 
Thus: 


PRINT Z 


Will result in "3". 
off; it truncat 





Za INT (6.87563) 


Yields "6", with everything to the 
right of the decimal ignored. In 
order to retain numbers to the right 
of the decimal and to "round them 
off", we must define a function 
ourselves. We create this special 
action by means of the DEF (ined) 
F(unctio)N comand. 


The function reads DEF FNA(X)=INT(X) 
where FN indicates function and the 
following letter can be any alphabetic 
character merely serving to define 
that particular function at the time 
of its use. The (X) 1s the value to 
be acted upon. 





The following simple program tells the 
story: 


20 DATA 3.8678, 19.2062, 11.562,1 
41.45917, 1000 

30 Read x 

40 IF X= 1000 THEN 70 

50 PRINT X, INT(X) 

60 GOTO 30 

70 80 


NOTE THAT THE STANDARD INTEGER 
FUNCTION, INT(X), DROPS THE DECIMALS. 
NOW ADD - 


5 DEF FMA(X)=INT(X*100 +.5)/100 
AND REWRITE LINE 50 TO READ 
50 PRINT X, INT(X), FMA (X) 


Note how the DEF FNA(X) limits the 
post-decimal numbers to two and 
“rounds them off". The latter 1s due 
to the addition of .5, which increases 
by 1 those decimal numbers .5 or more; 
anything less {s not propelled over 
the carry-over cliff. When dealing 
with several variables (X,¥,Z), just 
plug them between the parentheses. 


ALGORHYTHMS 


BY BRUCE TO@NAZZINI 


A few of you will recall the exciting 
algorhythm presented several Issues 
ago (August of 1978, I believe) for 
filling in a block of memory with a 
desired number. This would be useful 
for doing things like clearing the 
hires screen, setting basic memory 
space to all zeroes and then loading a 
program for purposes of exploration, 
‘or perhaps for "seeding" a Life game. 
The method presented at that time for 
filling in the Hexadecimal locations 
$00.$30 with all EA's (the 
no-op(eration) command in 6502 code) 
as follows: Type O:EA EA EA 
EA. Now this worked very 
ick in 1973 on the Apple -1 when 
‘our memory only went from $00.$30, but 
now that we've gone from 48 bytes to 
48K bytes, it can take several days. 













So we offer a solution so daring, so 
Imaginative, that we didn't even think 
of it. No, it took one of those 
unsung resident geniuses at APPLE to 
come up with this one. To fill (for 
example) $400 to S7FF with EA's, type 
the following: 


*400:EA 401<400. 7FEM ("RETURN") 








Now don't panic, that was the screen 
buffer you just filled. Try 
preceeding the "400" with "C050" to 
turn on graphics and change the "EA" 
to some other "seeds". And when 
you're ready for the bit time, try 
this: 


*C050 C053 C057 2000:10 73 EA 0 14 AF 
2006<2000. 3FF SM ("RETURN") 


The general formula follows: 


(startaddress)s((digit(digit)) 
(space) (startaddressenuaber of 
(digit(digit))s) < (startaddress) . 
(endaddress-number of (digit(digit))s) 
M(ove) (return) 





There 1s another interesting thing 
that we can do by forcing the computer 
to repeat its steps. To do this, 
start your command sequence with the 
"N" command and terminate it with 
"(space) 34:0 (space) (space)." For 
example, try this one: 


*N COSO C053 CO57 2000:01 34 64 62 96 
73 2006<2000.3FF 94 2000:FF AO 77 B3 09 
EE 2006<2000. FFM 34:0 (space)(space) 
("RETURN") 


For a technical explanation of why 
this works, we turn now to S. 
Wozniak, that delightful fellow who 
whispers *** SYNTAX ERR at us every 
night. 


The APPLE-II MONITOR command input 
buffer begins at location $200 and Is 
scanned from beginning to end after 
the user finishes the Line by typing a 
carriage return. An Index to the next 
executable character of the buffer 
resides in location #34 while any 
function 1s being executed. By adding 
the command "34:0" to the end of a 
HONITOR command sequence the user 
causes scanning to resume at the 
beginning. Because the "34:0" command 
leaves the MONITOR in "store mode, an 
"N" (normal text) command should begin 
the line. (---printed by special 
permission of Steven Wozniak) 





The: now that wasn't difficult to 
understand, now was it (Hey, Scot, 
what's a MONITOR? What about the 
Civil War? Oh.) Try different "seed" 
numbers with lores and hires and let 
us know what you come up with. Have 
fun. 





DISK? STRINGS 
ON TAPE 


BY PHIL 





All that disk can 
T can see, is 
save time - and since 
trouble is merely the trouble of 
writing slightly more complicated 
programs, that, too, reduces to time. 








Now time may be costly in a commercial 
environment, but it certainly isn't 
when it comes to personal computing or 
fun and games. Of course, if you WANT 
to go ahead and spend $600.00 to save 
time, don't let me stop you; but If, 
like me, you think eleven hundred 
bucks Is enough already, here are some 
tips to help you do with your little 
cassette what the big boys do with 
their disks. 


Take that matter of stri 
for instance. On disk, 
file it! But on cassette you can't 
STORE literals - they have to be 
transcribed to ASCII code first. Only 
where 1s the routine for doing that? 





Not wanting to r 
tea-kettle, I asked around. Nobody 
seemed to know. What's more, nobody 
seemed to care. The programming 
wizards all have disks. So I invented 
the tea-kettle, and here is a result 
in a sample demo program. You can use 
the sub-routines and a few essential 
lines in the main program in your ow 
progr: 


10 LS="NOW AND THEN": 
‘SAMPLE STRING FOR TEST PUR- 
POSES; USE YOUR OWN INSTEAD 

20 SS="HERE AND HEREAFTER":REM 
SAME AS ABOVE 

25 DIM A(25),AS(25),A1S(25) :REM 
SET ALL 3 TO LENGTH OF YOUR 
LONGEST STRING 

26 L=0:C=0:REM INITIALIZES 
COUNTERS--IF YOU HAVE OVER 
10 STRINGS IN YOUR PROGRAM 
YOU WILL HAVE TO DIMENSION 
C TO THE NUMBER OF STRINGS 

30 AS=LS:REM MAKES AS (THE 
‘SCRATCH VARIABLE) EQUAL TO 
YOUR FIRST STRING 

35 CuC+1:REM ESSENTIAL TO 
INCREMENT COUNTER BEFORE 
EACH CALL TO SUBROUTINE 

40 GOSUB 100 

60 AS=S$:REM MAKES AS EQUAL 
TO YOUR SECONC STRING. THIS 
AND THE FOLLOWING STATEMENT 
ARE WECESSARY BEFORE EACH 
CALL TO THE SUBROUTINE 

65 C=C+1 

70 GOSUB 100 

90 GOTO 200:REM INITIATES 
RECALLING ROUTINES--YOU 
WILL WANT TO PUT THIS 
ELSEWHERE IN YOUR PROGRAM 

99 REM FOLLOWING IS SUBROUTINE 
FOR STORING EACH STRING 
(LINES 100-180 


invent the 














100 O=LEN (AS):L=LotsC(L)eD 

120 FOR K=1 TO 0 

130 A(K)2ASC (MIDS (AS,K,1): 
REM TRANSLATES STRING TO 
ASCII CODE LETTER-BY- 
LETTER 

140 NEXT 

150 PRINT “START TAPE IN RECORD 
MODE; PRESS RETURN": CET WS 

160 STORE A 

160 RETURN 

200 L=0:REM RE-INITIALIZES 
COUNTER 

205 GOSUB 300 

210 LS=AS:REM SETS AS (THE 
SCRATCH VARIABLE )BACK TO 
YOUR FIRST STRING VARIABLE 

220 GOSUB 300 

230 S$=AS:REM SETS AS BACK TO 
YOUR SECOND STRING VARIABLE 


280 PRINT L$: PRINT SS: EMD :REW 
THIS LINE NOT NECESSARY IN 
YOUR OPERATION 


300 Lalet:AS="": REM IN- 
CREMENTS COUNTER; NULLS AS 
FOR NEXT USE IN SUBROUTINE 

310 PRINT "START TAPE IN PLAY 
MODE":GET WS 

320 RECALL A 

330 FOR K=1 TO C(L): FEM 
LIMITS LOOP TO LENGTH OF PAR- 
TICULAR STRING BEING WORKED ON 

380 AIS(K)=CHRS (A(K)): REM 
TRANSLATES ASCII COOE NUMBER 
BACK TO LITERAL 

350 AS=AS*A1S(K): REM BUILDS 
UP AS LETTER BY LETTER 

360 NEXT 

370 RETURN 


Problem number 2: I didn't have a 
printer, so how to stop program 
results from flashing across the 
screen so fast I couldn't even read 
them, much less copy them down? Thanx 
to Scot Kamins, here's the solution: 
In any print statement - usually in a 
loop - use this: 


PRINT: IF PEEK (37>20THEN GOSUB 500 
500 VTAB 23:PRINT “PRESS ANY LETTER 
TO CONTINUE":GET WS: HOME: 


So, so far, no disk for me, but I do 
have those 600 bucks and a lot of fun! 


ARTICLES 


BY SCOT KAM 








A number of ers have of late 
hinted that they would like to subalt 
articles to the CIDER PRESS, but felt 
inhibited because "I write lousy". 





Aside from the obvious comment that a 
lack of literary ability has so far 
been no deterrent to the newsletter 
ff, we do want to impress upon the 
membership that w e after 
information, and not deathless prose. 












If you have discovered a nifty 
algorithm, a neat function, some 
hidden monitor hook or some handy 
hardware hint that would help @ 
computer user on any level please send 
it in. Remember: the newsletter 1s 
written entirely by the membership for 
the membership. If we don't write it, 
it don't get writ. 








BELLY-UP PET 





CANDAL 





DATALIN 


BY BRUCE TOG@NAZZINI 





app: to have been a reiterative 
altercation centering upon our own 
beloved John Scribblemonger, just 
shortly after he had ventured FORTH 
from his hospital bed.* According to 
eyewitness accounts, the incident 


began shortly after nine A.M. as John 
S. brought his yacht, thi 
BROWN" Into the harbor of Scandal. 

After tying the passenger vessel (of 
the giant "Floating Bus" RS-232 class) 
up to Port 1, one of eight which 
parallel the Deyemmay Hemoriable Daisy 
Field, Scribblemonger disembarked the 
ship, accompanied only by his trusty 
dos Tige (he Lives there too!) who had 
been disembarked on a much earlier 
occasion. 








As the Commodore and Tige walked 
beside the cabled walls of the great 
hulking slots, the dos suddenly jumped 
through one of the small openings, 
lined with dinner plates, which 
punctuate the port's ponderously 
planked platform. As Scribblemonger 
Squeezed his massive main-frame 
through the hole, screaming for his 
Little chum, the frightened dos 

up through another plated-through 
hole, finding himself beneath the very 
underpinnings of City Hall, at 6502 H 
St., corner of 7th. Those of you 
familiar with Scandal as John 
Seribblesonger will well understand 
the plight of the plucky dos as he 
dodged the screaming traffic. He ran 
east of H St., past the four-way stop 
Lights on 13th, around the ping-pong 
courts on 1th near J, and then south 
‘on 14th St., past the paint store on 

















dath and F. He was next spotted 

cutting through the industrial 
th St., racing dow 
fara. 





FOR THE SAKE OF THOSE READERS WHO 
CANNOT FOR THE LIFE OF THEM FIGURE OUT 
WHAT IS GOING ON, LET US OFFER A BRIEF 
EXPLANATION: THIS ARTICLE IS IN FACT 
A CLEVERLY DISGUISED TOUR-DE-FARE OF 
THE INSIDE OF YOUR APPLE. IF YOU WILL 
OPEN YOUR RED BOOK TO PAGE 123 AND 
REFER TO PAGES 143 TO 151 YOU WILL BE 
ABLE TO FOLLOW THE PATH OF THE ERRANT 
PAIR. THE ADORESS OF THE CITY HALL, 
FOR EXAMPLE, TELLS YOU THAT IS LOCATED 
IN ROW H, COLUMN 7, AND IS A 6502 


Eyewitness report from farmer Vidgen 
(rhymes with pigeon’): “Ayup, I 
Fecon it was long about eleven. The 
wife come out to the pastcha to tell 
me that the goats ‘uz' thusty. ‘Never 
mind’, says I, ‘you put on the kett! 
and we'll give thea rams something 
Nice and refreshing.’ It was just then 
the wife seen the dos go yappin'by, 
with that big fella lopin' just 
behind.” 





‘And yapping and loping they went, all 
the way to A St., Broadcast Row, and 
the local offices of The Apple Core 
Journal at 2513 A St., corner of Sth. 
Here the badly scared dos tried to 
find refuge but was refused entrance 
by an unidentified guard described 
only as having a "rather fiendish 
grin™. 





With a winded and wilting 
Seribblemonger chuffing behind him, 
the tired beast headed North, straight 
Into the path of 16 bi-directional bus 
lines. He scurried across the rails, 
pausing momentarily on one of the 
green safety islands while a burst of 
bits went screaming by. 





We talked with Chip Pfuller, a 
foreigner, who 1s, Judging from his 
accent, either from Southern Whales or 
Northern Milpitas. (Southern Whales 
are found underwater and are given to 
@ slight drawl; this fellow was both.) 
"Yes, sir, it shore looked like the 








Well, sir, all of a sudden, this old 
cursor, lookin’ like Columbo ‘cept 
with a right strange smile, up and 
flashed him and that ole dos liked to 
drop right Into a wait-state.” 


Yes, and it was while friendly Tige, 
the dos was locked helplessly in that 
wait-state, that the rogue address bus 
came careening around the corner, and, 
bearing down on hia, scrambled hia 
into apparent pseudo-randomness! 


Arriving only moments later, 
Seribblemonger grabbed his little 
friend and booted him, repeatedly, in 
a vain effort to get him back on the 
right track. The bus lines became 
crowded with any chatter (cross-talk?) 
about the violent goings-on. Chip 
Pfuller: "He booted him pretty good. 
Even bounced the little sucker off the 
walls a couple times, but it warn't no 
use; everybody could see that that ole 
boy had a dead dos on his hands." 








Seribblemonger's rising rage branched 
toward the offending address bus when 
he noticed to his horror that the bus 
driver was none-other than J. Alfred 
Glitch, that Evil Genius behind so 
ny of our beloved editor's recent 
tribulations. And as the Commodore's 
pet lay belly-up, J. Alfred sped away 
from the scene, with a cursing 
Seribblemonger, having forced an 
interrupt on a data bus, taking off 
after him. (John had accidentally 
left his Lone Rarger costume at the 
cleaners, thereby making this his very 
first (sigh) non-maskable interrupt.) 

















Hip Flash, ace photographer for the 
Journal, reports that the police were 
shortly in hot pursuit of the pair, 
even going so far as to notify Oregon 
and Nevada of the chase, to enable (of 
course) the setting up of a tri-state 
buffer. (Nobody's forcing you to read 
this, you know.) 


Scribblemonger preved to be a valiant 
bus-driver, but te was no match for 
the nefarious Glitch, who, being able 
to leap from bus line to bus line, 
finally managed te completely delude 
(and thus elude) the baffled John S. 
by trapping him {na loop. Yes, poor 


? 








John, coming upon what he assumed to 
be Glitch's bus, climbed aboard and, 
not realizing that he had tn fact 
looped back upon himself, repeatedly 
ramed the driver until he had 
himself into something that a 
to be (according to photog Flash) an 
interrupt driven, real-time clock. 





‘As we go to press, John S. has been 
taken Into custody by the local 
constabulary and 13 being held for 
tion: “We want to find out 
akes this guy tick." Wi 
ly raising money to 
John's bail and a ni-cad stand-by 
power supply. But John informs us 
that, barring any unforseen events, he 
will definitely be at this upcoming 
meeting of your Apple Core. And John 
1s one man you can count on. 








And as for Mr. Glitch, Hip Flash has 
ust located his hiding place in the 
area surrounding Scandal, and the 
Apple Core Journal takes great, nay 
fiendish, pleasure in revealing it to 
everyone. Yes, J. Alfred, we know 
you re located at 
SOcwo3himem: 30KSLS/::: FORMULAE TOO 
COMPLEX 

ERR39LCLCATALOGSO39GKD: 1 s SYNTAX 
ERREIFLSRESET....++00+ 





PROGRAM LAW 


COPYRIGHT (0) 1978 


BY ARTHUR WELLS 


This article will discuss some of the 
laws pertaining to the protection of 
computer programs and data bases. As 
the law in this area 1s complex and 
confused. and as I am not an expert 
in the field, and as this 1s just a 
general article, I am sure you will be 
careful about relying on it before you 
do something you think 1s {mportant. 


There are theoretically several ways 
you can try to legally protect 
computer programs from unauthorized 
use. Basically, these are to try to 
patent them, copyright them, or treat 
them as trade secrets or "know hor 
Patent protection, even if available 
for computer programs, 1s an expensive 
process from the outset. As 
contrasted with other possible 
protections, the granting of a patent 
requires that a search be conducted to 
demonstrate that the item for which 
the patent protection 1s being sought 
is novel, that is, no one @: has 
"invented" it. Patent protection for 
programs, if available at all, might 
be had where firmware is integrally 
involved with hardware. 














The most common attempt at protection 
1s via a copyright claim. In order to 
claim copyright protection, one need 
only put a notice of copyright on the 
work, which consists of the word 
"copyright" or the letter C in a 
circle with the name of the claimant 
and the year of publication. This 
claim must be followed by 
registration, which involves filling 
out a simple form (available from the 
Copyright office in Washington, D.C.), 
payment of a small sum, and submission 
of a “copy of the work for which 
copyright is claimed. 











PROGRAM LAW (CONT.) 


Having the notice and the registration 
do not mean that you actually have the 
copyright protection you claim. You 
get that protection only after a 
lawsuit in which the court says you 
have protection. Such lawsuits are 
expensive and time-consuming and it is 
extremely doubtful that anyone but a 
large company would bring such a suit 
over a program and then only if the 

were very valuable. Hany 
specific problems and questions are 
presently unresolved as far as 
copyright protection for computer 
programs and data bases. In fact, a 
new copyright law effective in 1978 
specifically left questions about how 
to treat computer material for future 
discussion and several professional 


committees seem to be still grappling 
with the problems. 














Some of the questions and problems 
are: 


1, To claim a copyright, the work 
involved must be "original". When is 
the assembling, selecting, arranging, 
editing, and literary expression (if 
any) that goes into the set of 
operating instructions (program) or 
compilation of reference material 
(data base) sufficient to constitute 
original authorship? 

2. What protection attaches to works 
created by a computer, based on a 








progras’ 

3. In which form ought the program be 
protected; input, output, or both? 

4%. When does unauthorized use of only 
@ part of a program, such as one 
elegant subroutine, constitute an 
infringement? 

Sa. How do we distinguish between the 
situation where the program 
“communicates Information" and 1s thus 
copyrightable, and where it {3 an 
Integral part of the mechanical 
elements of some device, and therefore 
protection of its "utility" can be 
obtained by patent only. 
Does this mean we dr 
distinctions between systems firmware 
or software (compilers, asseablers, 
etc.) and other programs? Is a 
program ever non-"functional"? Or, 1s 
it always "communicating" information, 
even if it 1s only to a machine? 

6. Copyright protection gives the 
exclusive right to reproduce copies, 
and to prepare derivative works. 
Where is the line to be drawn 
regarding the use of programming 
algorithms? 

7. Copyright protects original works 
of authorship fixed in a tangible 
medium that does not extend to any 
idea, procedure, process, system, 
method of operation, concept, 
principle, or discovery regardless of 
the form in which it 1s described, 
explained, {1lustrated, or embodied In 
the work. How {s this rule to be 
applied to computer programs and data 
bases? 

8. Copyright Ls supposed to encourage 
people to produce original works by 
giving them sonopoly-like rights In 
their works for a specified period of 
time. But use of copyrighted material 
without permission 1s sometimes 
allowed to further societal goals such 
as teaching, criticism, scholarship 
and research. Whether such “fair use” 
1s permitted depends on the purpose 
and character of the use, the nature 
of the material, the amount of 


























material used, and the effect of the 
use on the market for or value of the 
copyrighted material. How is the fair 
use doctrine to be applied to computer 
material? 

There are a host of other, and/or 
subsidiary questions, but the above 
will do for a start. 


Given the problems with patents and 
copyrights, it 1s not surprising to 
find that many companies dealing with 
intellectual property do not rely 
completely on those legal tools for 
protection. Surveys of firms 
providing consulting, feasibility 
studies, systems analysis and designs, 
contract programming, proprietary 
software packages, time-sharing, 
telecommunicatios, data center 
management, and computer research 
Indicates use of various protective 
devices. Preferred methods seem to be 
contracts requiring that material be 
treated as confidential both by 
employees and users. In addition to 
treating the material as a trade 
secret, and to patent and copyright, 
companies also use limited access to 
technology, cryptographic coding, 
software locks and similiar devices. 
Protection of software seems to be 
viewed as most important for general 
business and financial applications 
and for systems software, and least 
important for complex production and 
management and for engineering and 
selentific applications. Probably 
this {s so because marketing 
considerations and design and 
development costs play a great role in 
providing meaningful protection for 
the latter. 




















As applied to the hobby user, it Is 
very doubtful that anyone would or 
could ever successfully prosecute an 
infringement or misuse suit against 
someone who pirated a progr. 
Conversely, hobby users who develop 
their om material should either keep 
it secret to themselves or give it to 
all in the hopes of making a good 
utation. The hobby user will 
hardly be in a postion to enforce his 
right, if he has any. 












The fundamental concepts for this 
field have been well stated by others: 
1. Creators and developers should 
receive compensation for the use of 
their product. 

2. Soctety should have maximum access 
to the creative products of its 
menbers.. 


The resolution of these two somewhat 
conflicting principles, especially as 








applied to w complex technolo: 
will need yea be worked out; that 
is why, in summary, the field of 


computer program law will contrive to 
be obtuse and obscure. 


In light of the above, you serious 
programmers and other computer 
professional have my sympathy and my 
condolences. Also my apologies for 
such faults of this article as may 
contribute to those attributes. 





ANY QUESTIONS ABOJT THE ARTICLE CAN BE 
SENT TO ARTHUR, CARE OF US HERE ATs 


we es ee tet 
Ss ran, Ch PEE 


TEACHING PGM 


BY ARTHUR WELLS 


COPYRIGHT (CO) 1078 


Young children apparently have little 
trouble learning to use a computer. 
Hy own child, now age 8, as well as a 
number of other children I've run 
across and heard about, have no 
trouble loading programs and running 
the machine. This tncludes both tape 
and disc load, restarting tapes after 
glitches, rebooting, and other minor 
troubleshooting. Strong motivation 
for this obviously exists in that the 
reward is immediate and satisfying: 
the child gets to play interactive 
games on or with the computer. 





Teaching your child to program also 
chieves a variety of goals and 
satisfactions, not the least of which 
are: 





1. Your child begins to learn a skill; 
2. You justify having your computer 
and spending money on It; 

3. It 1s a productive way to Interact 
with your kids 

4. The time the child spends with you 
frees up your spouse's tine; 

5. Your spouse will get off your back 
about spending so much time with the 
computer; and 

6. Your child learns that computers do 
what people tell them and not vice 
versa. 


To learn programming your child needs 
to know elementary counting and how to 
read. By the end of the second grade, 
maybe earlier if you're lucky or work 
hard with your kid on basic skills, 
your child can learn siaple 
programing. 


The easiest thing to teach the child 
1s that which produces Imeediate or 
dramatic results. If the child 13 4-6 
and 1s Just learning to spell, use the 
Giant Typewriter program. The child 
gets Immediate satisfaction from using 
the keyboard. 





The child can also be shown the PRINT 
command for simple adding and 
subtracting. This is fine if you work 
with the child, otherwise he will not 
know if the answers are right or 
wrong. 





The first program kids seem to learn 
easily is the infinite loop with a 
PRINT statement, such as: 

10 PRINT "HI DADDY!" 

20 COTO 10 

30 END 


This program Is useful to teach the 
child the concept of a simple 
statement, a simple program, the RUN 
command and that rules must be 
followed to get results. Many 
different results can be had using the 
semi-colon command and dummy PRINT to 
vary the output. Putting blanks 
within the quotes, and using 
asterisks, pluses, minuses, 
parentheses, etc., lets the child draw 
designs. The design will go by on the 
screen too fast for the child to see 
the design, so you can teach his 
CONTROL C to stop the program (or CTRL 
S with Auto-boot ROM). 





TEACHING P 





(conT.) 


By the end of the second grade aost 
children have been exposed to, and can 
grasp the concept of, using 
coordinates to define a location. The 
APPLE low resolution graphics is thus 
another way to get your child 
Interested in programming the 
computer. While the manual doesn't 
say $0, all the low resolution graphic 
statements will operate as commands, 
that 1s, Immediately and without Line 
numbers. This means the child does 
not have to write a program and then 
RUN It to see what he did, and then 
try to figure out what In the program 
produced which result on the screen. 








Without a line number type GR. The 40 
x 40 graphics will be called up. Then 
set COLOR. Then PLOT, HLIN, and VLIN 
can be used to draw on the screen. An 
outline of marks to help the child 
count the coordinate locations can be 
made with the following simple 
program: 
10 GR: COLOR = 10 
20 FOR Az0 TO 39 STEP 2 
30 HLIN 0,1 AT As VLIN 0,1 AT As 

HLIN 36, 39 AT Ay VLIN 38,39 AT A 
40 NEXT A 
50 END 





Obviously, the child will need your 
help. But he will eventually learn 
the command format. Show him the 
difference between PLOT 3,20 and PLOT 
20,3 etc. To help him write programs, 
have hime draw a picture on a 40 x 40 
grid. Then help him list the commands 
he needs to draw the picture. 








LET FINGERS 
DO THE SINGING 


BY TONY HUGHES 


One of my happy memories of the TV 
show Star Trek pictures a scene in the 
transporter room with Scotty or some 
technician at the controls. As his 
(or her) fingers go over the controls, 
we can hear each beep and buzz. This 
detail of human engineering Is also 
present in our modern day cash 
registers, calculators, etc. Audio 
feedback as it is called, 1s an asset 
because It coordinates two senses, 
makes us that much more sure. 


To try it out on your APPLE enter the 
code below while in MONITOR. Then 
enter 300C (return) and start zinging 
away. The effect will still be 
present If you go Into BASIC. As you 
will discover, each key has a 
distinguishing tone, so you can tell 
them apart. 


SSSSSERSE 
BSssassss 
ASSSRESAS 
SBRSSBSAS 
Ssxesb8s 
BSSRAGSLLE 
szsesssns 


(Word Processor for the APPLE II® ) 


FORMAT is a simple, easy to use word processor, designed with the 
beginner in mind. Featuring: 


LINE ORIENTED EDITOR 

GLOBAL SEARCH AND REPLACE, 

FILE SORTING CAPABILITY : 

UP TO 132 CHARACTER PRINT WID! % 
SINGLE PAGE OR CONTINUOUS FORMS OPTION. 
MULTIPLE COPY OPTION 

AUTO PRINTER SELECT 

USES NO APPLE? CONTROL CHARACTERS: 


FORMAT supports standard features found on word processors 
costing up to 10 times as much. The best buy in word processing 
for the APPLE® . (Requires minimum 20k and 3.2 DOS.) 


Only $20.00 


(Virginia residents add 4% sales tax) 


AMREX 


Box 754 Vienna 
VA 22180 
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JOIN NOW! 





ZIP. 


CITY. 
STATE 
COUNTRY 


NAME —________ 


ADDRESS. 


The routine works by replacing the 
address of the MONITOR get-a-character 
routine with its own address (the 
address goes into hex location 
$38-$39). Floppy disk users should 
beware, though, since the DOS will put 
Its own address into this location. 
It will also overlay that part of 
memory where our keytone routine 
resides. If you want to relocate it, 
you can put it anywhere you want as 
long as the last two bytes point to 
your load address + 11 bytes. It will 
even work with DOS If you load it 
before you load 00S. 
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PERMISSION TO REPRINT MUST BE OBTAINED FROM TALLY CORPORATION 


HOW TO SELECT THE PRINTER YOU NEED. 


CHOOSING A PRINTER 

Picking the printer best suited to your application is easier once 
you isolate the basics. This report will tell you what type of 
printers are available. how they differ from one another, and 
how to evaluate their value in terms of cost to you. 

Since they represent the most popular and fastest growing 
segment of the printer market. our discussion will be limited to 
low- to medium-speed printers. They encompass those 
applications using minicomputers and microcomputers. 
process control, small business systems. data acquisition, data 
entry and data communications. Printing speeds can range 
from 15 characters per second (8 lines per minute) up to 
600 lines per minute. 

WHAT SPEED DO YOU NEED? 

The proper printer speed can be influenced by factors such 
as the average amount of data to be printed. available system 
time or the minimization of communications line charges. 

For continuous output, a rule of thumb technique for 
determining speed needs is multiplying the number of forms 
required each day by the average number of lines per form. The 
total is the number of lines to be printed per day. Hence, the 
number of printed lines required per day divided by printer 
speed equals the number of minutes per day of actual printing. 

The above is greatly simplified because it doesn't account for 
line length, carriage return time factors. slew speed in skipping 
over blank space. etc. Finer calculations need to be equated 
for each given situation. 

PRICE vs. PERFORMANCE 

While it is typically true that the lower the speed the less ex- 
pensive the machine. this simplistic approach can lead to 
downstream headaches. To save money. a user with a heavy 
workload often buys a printer designed for light duty. While the 
printer may produce the desired output. it does so at the ex- 
pense of being overworked The cost of replacing prematurely 
worn out parts soon offsets any initial savings. Plus. the lost 
time of downtime can be even more costly. 

So. in addition to rated speed, the astute printer purchaser 
looks at duty cycle limitations, MTBF specifications, main- 
tenance requirements, and. most importantly. the mechanical 
structure of the machine. Always remember. with mechanical 
devices, simplicity is a forerunner of reliability. Inherent design 
simplicity and a minimum number of stress and wear points 
means a superior mechanical system. 

There is more to printer cost than initial purchase price. The 
total cost of all expenses over the life of the printer must be 
factored. Often, the printer with the lowest purchase price 
ends up being the most expensive buy. 

In the price performance category. the purchaser should also 
look to see what basic features are standard and what features 
are “options. and hence. add-on costs. 

THE PITFALLS OF SPEED RATINGS 

While manufacturers quote serial printer speeds in characters 
per second and line printer speeds in lines per minute, the 
figures can often be misleading. Some specs don't account for 
the length of a printed line or the number of control characters 
ina stream of text. Hence, speed ratings are given for full lines. 
or only partial lines, or for 64-character sets or 48-character 
sets. To properly assess the true speed of a printer, ask the 
manufacturer or vendor for a throughput curve as shown here. 


IMPACT vs. NONIMPACT 
Simply stated, an impact printer transfers ink to the paper 
forcefully by a hammer assembly such as the common office 
typewriter. Non-impact printers use sensitized papers that 
respond to thermal or electrostatic stimuli to form an image. 
Hence, the basic advantage of impact printers is multiple 
copies using low-cost. standard paper and inked ribbons. The 
advantage of non-impact printers is quiet operation, and, often, 
speed. However, they produce only single-page output. and 
the special paper can be expensive (2 to 3 times the cost of 
standard paper) and not readily available. Also. use of 
pre-printed forms is impractical 

Since most data processing applications require multiple 
copies, and cheap copies. the remainder of the discussion will 
deal only with impact printers. 


LINE vs. SERIAL 
The choice between selecting a line printer or a serial printer 
nerally pivots around speed needs and purchase price. 
rial printers, which produce one character at a time, are 
typically less expensive than line printers, which produce an 
entire line of text at a time. Some of the better-constructed 
serial printers can comfortably print up to 160 characters per 
second (about 100 lines per minute) while line printer speeds 
can attain whatever range one is willing to pay for. 

However. with the recent advent of the microprocessor, 
serial printers are achieving increased throughput efficiencies. 
Anexample is ‘optimized bi-directional’ printing. whereby the 
print head moves left to right or right to left, thus eliminating the 
wasted time of carriage returns. This technique also"searches” 
for the shortest path to pick up the closest character on the next 
print line. A printer equipped with optimized bi-directional 
printing can typically double or triple throughput. It’s an 
important bonus to look for. 


MATRIX vs. FORMED CHARACTER 

Another major distinction between printer types is shaped 
characters vs. matrix image formation. The shaped character 
(such as found on the office typewriter) is contained on print 
mechanism devices such as drums. chains, belts, bands, daisy 
wheels or type balls. However. there is the drawback of higher 
purchase price and mechanical complexity. The latter has a 
bearing on maintenance costs and the probability of downtime. 

Matrix printers form a character from an array of closely 
spaced dots. The foremost advantage of matrix printers is 
mechanical simplicity which translates into a low-cost device 
capable of highly reliable operation. Good matrix printers 
produce characters that achieve a formed character look. Also 
print quality is more consistent from matrix printers because 
alignment seldom wavers and character density is uniform. 
Formed characters have a tendency to get out of alignment and 
character density can vary. (The user should pay particular 
heed to the quality of printed output when comparing 
matrix printers.) wy. 

Another advantage of matrix printers is the ability to obtain 
different type styles—condensed, expanded. double width, 
upper/lower case, negative print, OCR. bar code—froma 
single mechanical system. Because the matrix array is 
contained ina Read-Only-Memory (ROM). a simple electronics 
swap changes the type face or even the language, e.g.. 
Japanese. Russian.etc. 
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TALLY 1612 THROUGHPUT 
160 cps bi-directional printer 


11 


PRINT MECHANISM TYPES 

The heart of a printer is the print mechanism which imparts the 
character image to the paper. A thoughtful examination of 
impact technique is important from the standpoint of long-term 
reliability and consistent print quality. 

DRUM PRINTER (fig. 2) 

Acomplete set of formed characters is embossed around the 
circumference of a cylindrical drum. The drum rotates at a 
constant speed and a hammer, located at each print position, 
strikes the desired character at each print position each time 
the drum rotates on its axis. 

As is readily apparent, timing is critical to maintain print 
quality. As such, there is the need for periodic hammer flight 
time adjustments. Other disadvantages include a limited 
choice of character fonts and the constant possibility of 
vertical misregistration of characters. 

On the plus side, operation is generally reliable, print speeds 
from 300 to 2000 lines per minute can be achieved, and as 
such, drum printers offer a good cost/performance ratio for 
higher duty cycle applications. 

CHAIN OR TRAIN PRINTER (fig. 3) 

Character slugs move horizontally past hammers located at 
each print position. The characters pass each hammer in 
sequence. In chain printers, the slugs are not connected and 
they push themselves around the track. With both methods, 
several complete character sets revolve past the hammer 
positions at aconstant speed. The hammer is fired at the precise 
instant that the character to be printed moves into position. 

Again, hammer and electronic adjustments are critical and 
require periodic maintenance. Reliability is a problem because 
wear in the tracks is common. However, for higher speeds, up 
to 2000 lines per minute, these printers do the job. 





DRUM PRINT MECHANISM 


04 CHARACTERS AROUND 


TRAIN PRINT MECHANISM 
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Figure3 


BAND AND BELT PRINTER (tig. 4) 
These are typically tractor-type devices with character slugs, 
or steel or plastic belts with raised characters that are struck 
by the hammers as the desired character comes into position. 
The clsacventtages of this technique are belt and drive wear, 
poor print quality from some designs, and the entire belt or 
band must be replaced when individual characters wear out. 
The advantages include easily-interchangeable type bands 
for different character fonts, good print quality with some 
models, and reasonable reliability. Speeds range from 30 
characters per second up to 2000 lines per minute. 


SERIAL MATRIX PRINTER (fig. 5) 

Acharacter is formed by a pattern of closely spaced dots. Array 
patterns for a single character can be 5 X 7,7 X7,79,9X7, 
9X9,7X 100r9 X 12. The print head, which sweeps across the 
page, consists of a vertical column of needle-like hammers 
which are selectively fired to produce any given character. 
Type fonts are stored in ROM or PROM memory and thus many 
different character sets, including foreign languages, can be 
generated with the same print head. 

The disadvantage of matrix printers can be poor print quality 
if a sparse dot matrix pattern is used and print head reliability 
probleme if duty cycles are higher than intended for the 
machine. 

The big advantages of serial matrix printers are low cost and 
the simplicity of its design. And some matrix printers have such 
fine resolution that the printout appears to have been printed 
by a formed character printer. 

Speeds can range from 30 to over 200 characters per second. 












BAND PRINTING 


IZONTAL MATRIX _ 





COMB MATRIX PRINTER (fig. 6) 

Aunique variation of matrix printing, the print comb technique, 
prints a line of data at a time rather than a character at atime 
as is common with most matrix printers. A single piece print 
comb has 132 fingers. each with a steel ball impact face. Each 
finger corresponds to a character position, thus there is a 
hammer for each print position. 

Each finger is pulled back by its own electromagnet and 
then released forward to create a dot. A slight horizontal 
movement of the comb locates the adjacent dot position and 
the finger is released again. This is repeated until one dot row 
is completed. The paper advances vertically to the next dot 
row and the process is repeated until the complete line has 
been printed. 

This technique can achieve reliable printing speeds up to 300 
lines per minute. Print quality is very good, approximating 
formed character output. Because the print mechanism never 
works very hard. and mechanical movement 's slight. machine 
reliability is unmatched. Preventive maintenance is un- 
necessary. There are no lubrication or adjustment require- 
ments nor duty cycle limitations. The comb matrix hammer 
has proven to be the most reliable mechanism available. 























Figure6 


HELIX MATRIX PRINTER (fig. 7) 

Another matrix technique employed ina line printer. the helix 
printing method. has a helical print mechanism with a knife 
edge spiral on its periphery. As the helix rotates by each char- 
acter print position, hammers fire at appropriate positions of 
the dots, and the required character 1s completed during one 
rotation of the helix. 

The advantage of this technique is high speed printing. up 
to 500 lines per minute, but at prices appreciably less than 
drum or chain printers. Print quality is good and machine 
reliability is good because of a minimum of moving parts. 





1S RELIABILITY IMPORTANT? 

Even after deciding on the type of printing method best for the 
application, the user will be faced with competing manufac- 
turers offering, on the surface, like machines. But careful 
analysis can soon determine the best value. Rather than being 
swayed by purchase price, the important consideration is total 
cost of ownership. 

THE REAL COST OF OWNERSHIP 

User cost goes beyond the initial purchase order. Total cost 
must include cost of supplies, maintenance, service calls and 
‘spare parts over the expected life of the machine. And the 
immeasurable cost of downtime! When these factors are 
added up, often the machine with the higher initial price proves 
to be the lowest cost in the long run. 

Three basic factors can be evaluated toward determining 
the real cost of ownership—inherent machine reliability, 
periodic maintenance requirements, and the consumption of 
expendables such as paper and ribbon. 

BASIC RELIABILITY 

Complexity means cost. Even with today's advanced _ 
electronics, some printers still have elaborate mechanical _ 
works, Remember, any part eliminated through good design is 
‘one less part to fail. Therefore, look for mechanical simplicity 
that requires a minimum of, or no routine adjustments, 
minimum of, or no lubrication procedures, and no special 
tools for normal service. ‘ : 

Mechanical assemblies should be modular in design for 
easy and quick replacement. Look out for extensive use of 
clutches and brakes, as these are high failure-rate components. 

While evaluating the reliability of printer electronics can be 
difficult, there are some things to look for that indicate sound 
design. Microprogramming eliminates many potential circuit 
failures by greatly reducing the number of electronic 
components. Modularity indicates good design. Few boards 
that are easily replaceable normally indicate quick solutions 
to problems. Beare adjustments by the operator should 
never be required. . 

In summary, the critical reliability components of any printer 
are the hammer assembly, the paper feed system, the ribbon 
system, and the printed circuit boards or electronics. Each 
should be examined with simplicity and soundness of 
design in mind. 

PERIODIC MAINTENANCE ete whe : 

The requirement for and extent of periodic maintenance is 
tied directly to the electro-mechanical design of the printer. 
The simpler the design. the higher the expectation of reliability. 
Inan inherently simple electro-mechanical system, a minimum 
amount of maintenance will be required. Or no maintenance 


id 

At today's prices. a field service call can typically cost about 
$100 plus parts. With these prices escalating yearly, main- 
tenance can become the greatest portion of ownership cost 
if reliability is poor. 

EXPENDABLE CONSUMPTION 

The major expendable supplies a printer goes through are 
Paper and ribbons. Look for a printer that can easily le 
standard forms of varying widths, and for multiple require- 
ments, make sure the last carbon is clearly legible. If pre- 
printed formsare utilized, make sure the printer has the needed 
forms controls so printing conforms to the allocated space. 
Additionally, printers are available that offer special forms 
handling capability to cut the printed form to the desired length 
or size and minimize paper wastage. 

When you realize that, with typical usage, more money is 
‘spent on paper than was originally expended on the printer, it's 
easy to see that paper cost is a big item. 

Standard line spacing for most printers is 6 lines to the inch. 
Some printers, for paper economy applications, have an 8 line 
ber inch spacing option. For high volume runs, savings can be 
Significant. In addition, some of the better matrix printers can 
alternate their character pitch to achieve 10, 12, 14 or 16.5 
character per inch spacing. As an example of paper savings, 
132 columns of data can be printed on 80 column width paper 
using 16.5 cpi spacing. 

Ribbon replacement can become expensive if an impractical 
ribbon system is employed. For economy, a reel-to-reel system 
with a reusable fabric ribbon offers longer life. Many printers 
offer cassette-type cartridges that feature easy-loading 
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characteristics. With both types, look for a good design that 
minimizes moving parts and maximizes ribbon life. Because 
ribbon replacement costs can become a big expense factor 
over the life of a printer, it should be considered in with the total 
cost of ownership. 
IMPLEMENTATION COSTS 
An often-overlooked factor in printer price evaluation is the 
cost of implementation; namely, the manufacturer's ability to 
service the product. provide the needed documentation to 
integrate the printer into the system, and in general, solve any 
Problems that arise. The chart below is a good checklist to 
refer to in making an evaluation of a printer vendor. (Fig. 8) 
THE VALUE OF VERSATILITY . 
Whether approached from the standpoint of cost or the stand 
int of operator convenience, the standard features offered 
a printer are important parameters. Also, be sureto 
determine if any given feature is included in the standard price 
of the machine or if it is an additional cost option. A checklist 
(Fig. 9) comparison of printers can assist the evaluation. 
true measure of machine features is the degree to which 
they enhance the ease and efficiency of operation. Here are 
some considerations. 


Integration 
controller/interface 
purchase or manufacture 
checkout 
Programming 
‘Support cost 
spares 


manuals 
training 
warranty 
refurbishment 
preventive maintenance 
corrective maintenance 
Other cost 
impact on existing inventory 
spares 
training 
Total cost 





FEATURE CHECKLIST 
Speed 
Technology 
(impact, non-impact. matrix/formed characters) 
Copies 
Forms size 
VFU 
Self-test/diagnostics 
Acoustic noise 
Size and weight 
Environment 
ESD 
(electro-static discharge immunity) 
Interface 
Flexibility 
MTBF 
MTTR 
Character sets 





INTERFACE CAPABILITY 

The interface aspect of a printer purchase can be an expense 
and technical headache if the machine is not equipped for 
compatibility within the system it will live. While it seems most 
printers are offered with an RS-232 compatible port, if the 
system requirement calls for something else, the user should 
determine up front if the machine can be adapted to his 
interface needs and at what expense. Many manufacturers 
offer standard controller packages to allow plug-in 
compatibility with the host system. 

NUMBER OF CHARACTER SETS 

Numerous applications can make use of different character 
sets. With matrix printers, since character generation codes 
are contained on printed circuit cards, more than a single 
character set is at the user's disposal. The user can even 
configure special custom characters. And of course. foreign 
languages are easily accommodated. 

Another advantage of the matrix printer is that the sizes of 
characters and interline spacing can be varied. Condensed 
printing at 16.5 characters per inch, as opposed to the standard 
10 characters per inch, can save paper. Or, double-width 
printing, where a character is printed twice as wide as normal, 
allows certain portions of text to emphatically stand out. 
FORMS CONTROL FEATURES 
Since most print-out follows a set format, the types of forms 
control available must be considered. While most printers have 
the same standard offerings, lower-priced units may take 
shortcuts by eliminating some necessary features. 

Any printer should have provisions for initially aligning 
the top of form and left-hand margin for pre-printed forms. 
From this point, there are a number of forms length control 
Offerings. Typically. vertical format (called the VFU) can be 
controlled via a 66/88 line count program, a forms length 
selector switch, and 8 or 12 channel punched paper tape loop 
program, or an electronic VFU loaded through the I/O. The best 
method depends upon user requirements—but the more 
sophisticated the VFU, the higher the price. 

For consistent print quality. especially if alternating between 
different thickness layers of multi-part forms. look for a forms 
thickness control. Also, a paper-out alarm should be standard. 

For users that require very specialized forms handling capa- 
bility. printers are available that can be customized to perform 
very specific tasks such as printing airline ticket passbooks, 
printing entries in bank passbooks and simultaneously record- 
ing the transaction on a permanent journal, printing and cutting 
tiny tickets and labels, or even printing two different forms 
simultaneously. Additionally, automatic front feed attachments 
to standard printers enable efficient control and printing of 
individual cut forms such as ledger cards or invoices. 
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OPERATOR CONVENIENCES 

From the operator's standpoint, the acceptance of a printer 
generally depends on whether the manufacturer originally 
designed the machine with the operator in mind. 

The primary operator function is paper loading. Loading 
should be easy and fast without awkward fumbling. The more 
accessible the paper path, the better. Tractor face plates (for 
pinfeed paper) should be exposed and the tractor teeth clearly 
visible. Tractors should be easily adjustable to accommodate 
various width forms. 

Ribbon changing should likewise be easy and fast— 
and clean. 

Control indicators should be conveniently, and safely, 
located for operator accessibility. They should be clearly 
labelled and logically organized. 

Some of the more sophisticated printers offer status check 
panels that register the fault condition if the printer stops 
operating. This allows the operator to initiate corrective action 
in a timely manner. Often these panels differentiate between 
operator correctable faults and those that require a service 
technician. 

An important consideration to the operator, or anyone in 
close proximity to a printer. is noise level. While most 
manufacturers publish a decibel level for their machines, the 
user should find out under what conditions the tests were made, 
i.e., where was the sound measured. what kind of printout 
pattern was being used Any slight variation in any of these 
conditions can have a significant impact on the test results. 

Another convenience consideration is whether the printer 
is available as a desk-top unit or requires a stand. Some printers 
are interchangeable. i.e.. the unit can be used in either 
situation. Also, determine if paper-stackers. both supply and 
take-up. are available or can be easily accommodated. 


PRINT QUALITY 

One of the most important factors in choosing a printer is print 
quality. While no standards exist as to what constitutes good 
print quality. the eye of the beholder can easily pass judgement 
The expectation should be clear. crisp and concise characters. 
In formed-character printers, the pitfalls to look for are 
horizontal or vertical misregistration, tipped characters. 
ghosting or smearing, clipping off of ascenders or descenders. 
voids or variations in character density 

The critical examination of matrix printing should be 
concentrated on the dot spacing. Good matrix print quality has 
the individual dots appearing to overlap to give the impression 
of a formed character. An inherent benefit of matrix printing 
is that character density is always uniform because the force 
required to print a dot is always uniform. Conversely. ina 
formed character printer. a design compromise exists in order 
to legibly imprint a large land area character such as a"W. yet 
Not perforate the paper with a character such as a period. Also. 
a natural benefit of the uniform printing characteristic of 
matrix technology is better carbon copies from a legibility and 
consistency standpoint. 

In matrix printers, there should be no excuse for any poor 
character registration. A sound mechanical design literally 
locks the needles or hammers into an alignment position so the 
result is straight line registration, vertical and horizontal, that 
never wavers. If alignment problems occur, it indicates a faulty 
paper movement mechanism. Before selecting a printer, make 
sure you carefully review print samples. 


TALLY: 
PRINTERS 


This report is furnished compliments of Tally Corporation, 8301 South 
180th St.. Kent. WA. 98031. (206) 251-5500. Additional copres can be 
obtained by writing to the above address. 








Tally Corporation is a member 
of the MANNESMANN Group. 
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So You Bought Your Computer 
From Somebody Else... 


Business and math 
and education and 
such. Do we have 
lots of programs? 
We'd say very 
much... 


To err is human. * an that 


was the past, this is the present, and we 
want to connect with your future. Sooner 
or later, you're going to want food for your 
Apple. When that time comes, have we got 
the goodies for youl We have add-ons like you 3 
to ete wouldn't believe: software that just doesn’t quit: “4 3 ad f 
programs and list books, magazines, Apple-users’ publications and * 
your fexs. tutorials. We also have coffee, a comfortable 
Centronics and «these are the 
Trendcom (and environment and the time-of-day. All of this Spsketvesthargcly 
others from Texas). has been personably selected and tested by your drive. We sell 
our staff of Apple specialists. | Want these and the 
details? Check out the flow chart on storage binders to 
this page. Then stop in and we'll Weep them In zss 
forgive you for buying your 
Apple at That Other Place. 


+. these are the 
Programs that go 
‘on the disks that 
slip into the drives 
that connect to 
your Apple. 


This Is the Apple 
Bought elsewhere. «this Is the dise 
We'll get you up on pees vt sonnecrs 
a floating point to you Apele: 
ROM card, or get je've got these, 
you started In too, and... 
Pascal... . 


Computerland” 2272 Market Street 


San Francisco, CA 94114 
of the Castro (415) 864-8080 








APPLE DOS 


WHAT'S DOS 


Congratulations on your new disk 
drive. Playing with programs and data 
will be quicker and easier, but there 
are some things you should know before 
you start. For example, 0.0.5. 





The DOS (Disk Operating System) is 
what Lt sounds 11! There are many 
steps in getting data from and to the 
diskette's magnetic recording 
surfaces, and the DOS has them in its 
Innards somewhere in machine code. 
But it performs another function, that 
of control. 





A tape-oriented system has a limited 
of commands--not auch you can do 
with a cassette recorder} a disk drive 
has many, many more. The commands to 
control the disk will be read by the 
DOS, and control passed to the 
appropriate set of machine codes. 

When we load a named program, the DOS 
has to first go to a part of the disk 
containing program names and 
corresponding locations to find our 
program. Then it goes to each sector 
‘on which the program 1s located, picks 
up each byte on each sector, and puts 
it into the Apple's memory. 


Let's say something about floppy 
diskettes at this point. They are 
surfaced on both sides th magnetic 
material, just like magnetic tape. 
The disk drive normally uses just one 
side, since the manufacturer puts his 
best side on top. The diskette will 
rotate inside the drive while the 
recording head 1s held stationary. It 
looks Like a magnetic phonograph 
record. Instead of one continuous 
groove, the recording head will be 
moved in and out to record data In 35 
concentric circles, called tracks. 
The data does not completely fill a 
track but 1s placed:in 13 sections, 
called sectors, with 256 data bytes 
per diskette. So, 35 tracks * 13 
sectors * 256 bytes per sector = 
116880 bytes per diskette. 


Introducing commands to control the 
disk drive posed a probl. 
going to read these commands and 
execute thea? Other computers feature 
special versions of BASIC with more 
commands and higher memory 
requirements. The Apple, howev: 
executes disk commands differently. 
ALL data that 1s to be printed will 
first through the DOS for its 
examination. It will intercept its 
own commands and execute them, but not 
pass them on to the Apple. The DOS 
commands can then work with any other 




































program product, such as Applesoft, 
Integer BASIC, the moniter, anything 
that prints. 


The DOS is normally kept on disk and 
loaded whenever you enter PRE in BASIC 
or Control P in the monitor. What 
happens 1s that a program on the ROM 
Card 1s executed that takes the DOS 
off of disk and loads it into memory. 

Say your disk controller is In Slot 7. 
Then if you get into Monitor by a 
‘CALL -151' and then execute the ROM 
program at C700 by 'C700G', you will 
boot the 00S. It will be placed into 
the highest location in your Apple's 
eemory. Himem will be reset. 


3.1 OR3.2? 


BY ALLEN JOHNSON 


Hi there, you say your feeling blue 
because you just updated your disks to 
3.2 and now they don't run right. Not 
only that but now you can't remember 
which is 3.1 and 3.2? Hy friend Bob 
Burns and I sat down and came up with 
a nifty little program that tells you 
which is which. 


>LIST 

10 TEXT : CALL -936 

20 X=PEEK (1002) 

30 VTAB 5: TAB 12: IF X=32 THEN 
PRINT "DOS VER 3.1" 

40 VTAB 5: TAB 12: IF X=76 THEN 
PRINT "DOS VER 3.2": VTAB 20: END 


VOL MISMATCH 
MATCHED 


BY ANDY HERTZPELD 


NOTE: THIS ARTICLE APPLIED TO DOS 3.1 
AND PROBLEM DOES NOT OCCUR WITH DOS 
3.2 BUT HAS SOME INTERESTING DOS 
INFORMATION 


If you are running your APPLE with a 
disk, by now you have probably 
encountered the problem of "VOLUME 
MISHATCH ERROR" messages. Here's a 
solution to this problem produced by 
Andy Hertzfeld's exploration into the 





Every diskette has a volume number 
from 1 to 254 associated with it. It 
is assigned when the diskette Is 
initialized and there 1s currently no 
easy way to change it. The volume 
number of the current disk is stored 
at $B7F6. Before most DOS commands 
are executed the system checks to see 
if a "volume mismatch” er 1s 
generated, While this "feature" may 
be nice for large business 
applications that don't want dumb 
operators inserting the wrong disks, 
it 1s very annoying to most average 
users. It 1s most difficult when you 
want to transfer a number of prog 
between two disks with different 
volume numbers. 











After much searching I located the 
place where the volume check is 
performed and devised a patch to 
disable it. It's only two bytes long; 
just enter the monitor and type: 
"BOFE: A900". This will disable all 
volu checking until the next 
bootstrap. It works by replacing the 
comparison instruction which perforas 
the volume check with a "LDA #00" 
instruction which sets the "equality" 
or Z flag, effectively forcing the 
match to succeed. 





Note that the addresses given here are 
only true for a 48k system. If you 
have a 32k system, read "77F6" for 
B7F6" and "70FE" for "BOFE". In 
general, if your system has memory 
size X, subtract ($CO00 - X) from the 
given addresses. 








FP DISK TRACE 


BY SCOT KAMING 


Handy hint for the sonth comes fro 
our esteemed VP, Bruce Tognazzini, and 
has to do with the elusive “Tracing a 
Applesoft Program with Disk Booted" 
problem. 

The solution: DS=CHRS(13) + CHRS(4) 
which is the same thing as having 0S 
equal a carriage return (CTRL H) 
concatenated with good friend CTAL 0 
of disk command fame. 


I haven't the faintest idea how it 
works, and B.1T. ain't talkin’; but it 
does, indeed, work. One Is cautioned, 
however, to return DS to equal only 
CTRL D after debugging 1s completed, 
however, lest odd and unpredictable 
events ensue. 


DOS NOTE 


BY SCOT KAMING 


The DOS will accept a colon (1) froma 
Textfile written by an Integer BASIC 
Program without acting upon it. But 
it treats it as a statement delisiter 
In Applesoft, ignoring everything else 
that comes after it in a record. 


Thus you can say “THIS IS IT: THE BIC 
ONE™ in a Textfile read fros an 
Integer program. Read from Applesoft, 
the program says “THIS IS IT* eth a 
error message. 

Silly, isn't it? 


1. Larry Fish from Los Altos Hills, 
CA, points out that, rather than 
typing "VO" for the wild card to avold 
disk mismatches, a simple "V" will 6. 
Every stroke counts... 


2. Assuming that your "HELLO" progras 
contains a "CATALOG" command, you cat 
add some text in a string statesent to 
appear after the catalog listing. M 
example follows. 





3. Incorporating Arthur Wells’ “H* 
title, the following routine wlll do 
nicely for a HELLO program: 


0 DS =" ": REM CTRL D 
10 POKE -16298,0: REM CLEAR HIRES. 
20 TEXT : REM CLEAR GRAPHICS, RESET 


40 PRINT DS;"CATALOG" 

50 PRINT “TO RUN A PROGRAM, COPY THE 
TITLE" 

60 PRINT “EXACTLY AS IT APPEARS 
ABOVE": REM ILLUSTRATES 62,ABOVE. 

70 ED 


NAME GAME 


BY ANDY HERTZPELD 


Some people might wish to alter the 
names of some of the DOS commands to 
suit their own personal tastes (it is, 
after all, a personal computer). For 
example, I know many folks would like 
to abbreviate the "CATALOG" comand to 
This ts surprisingly 





Since the DOS lives in RAM th 
tents of its command table are 
ly changed. The command table 1s 
located from SA7EO - $4863. Each 
command name {s represented as an 
ASCII string with the high bits off, 
except for the last character of ti 
string, which has its high order bit 
set. The strings are associated with 
the comands by their position in the 
command table (the first string 
corresponds to the INIT command, the 
second to the LOAD ) ete). 














Thus you can dream up your own names 
for the commands by storing new 
strings in the command table. For 
example; to change the name of the 
INIT command to ONEW you would enter 
the monitor and type “A7E0: 48 4E 45 
D7". However, some caution is 
required when you change the length of 
a command name; in general you will 
probably have to rewrite the entire 
command table to achieve the desired 
effect. 


It 1s hard to use the input and output 
"hooks" in conjunction with the DOS 
since you cannot simply change the 
hooks as they are the only way the 00S 
interacts with the rest of the system. 
Also, if you only change one of them, 
the DOS has the nasty habit of 
changing it back. Fortunately, the 
00S has its om internal hooks it uses 
for keyboard input and video ou! 

Its output hook 1s at $A996 - “Rio37 
and the input hook immediately follows 
at $A998 - SA999. If you change the 
contents of these addresses Instead of 
the usual hooks at $36 - $39, 
everything should work out just fine. 
For example, lets say you wanted to 
divert output to a line printer 
without disabling the DOS. If the 
line printer output routine {s located 
at $300, all you would have to do is 
enter the moniter and type "A996: 00 
03"(For 3.1 DOS only). 





By the way, in case you missed it, 
typing "9DB9G" (9DBFC for 3.2 DOS) 
from the monitor will reinitialize the 
00S. This routine should be called 
after every reset to restore the 
hooks. It O exactly like typing 
"3006" PPLE's documentation 
recommends out is a little bit safer 
since the 3D0 location Is often 
destroyed by various programs. 








This article is merely the tip of the 
proverbial iceberg; most of the DOS's 

Internals still remain a mystery to 
me. I hope APPLE eventually 
distributes complete documentation but 
untLl then other curious users can use 
this article as a starting point for 
their own explorations. Hopefully 
they will report back what they find. 





RWTS 


BY TONY HUGHES 


New information has come out about 
accessing data on the disk directly. 

The DISK II has its data recorded on 
35 tracks (think of a 4 track cassette 
or an & track cartridge) arranged as 
concentric circles around the center 
hole. Each of these tracks Is divided 
Into 13 sectors, of 256 bytes each. 

Using the following method, you can 
read from or write to an individual 
sector on any track. 








First, you must build a table or two 
in memory to specify the parameters of 
your call to the DOS. It will 
contain: 


POSITION CONTENTS 
01 Must be 01. 
02 Slot number, times 16. 
03 Drive number. 

% Vol. 
Make it 00. 
05 Track number that the sector 1s 
on. Must be 00-34 
06 Sector number. Must be 00-12. 
07-08 Low and high order addresses 
of device characteristics table 
(see below). 
09-10 Location of data. Where DOS 
will get it or put it. 
11-12 Amount of data to be processed. 
Should be 255. 
13 Command codes. They are: 
00 = Position the head 
01 - Read a sector 
02 - Write a sector 
04 - Format a disk 
1% Error code returned by DOS If 
operation failed. 
10 - the diskette was write 
protected 
20 = the volume number was 
incorrect 
= the drive had a 
problea 
80 - the data was bad 
15 Volume number actually found is 
placed here 
16 Previous slot number, tines 16, 
from last access of the disk. 
found. Low and high addresses. 
17 Previous drive number from 
last access of the disk. 
18 Previous slot number from 
last access of the disk. 


The big table above is called the 108. 
You must place the low order address 
of the I0B in the Y register and the 
high order address in the A register. 

Then, call the subroutine in the DOS 
that will perform the operation. The 
addresses should be as follows: 


MEM SIZE ADO(hex) INT 





16k 3000 15616 

20k 4000 19712 

24k 5000 23808 

32k 7000 32000 

36k 8000 -29440 36096 
48k 'B000 -17152 48384 
NOTE: An easier method would be to 


CALL $309, which contains a Jump to 
the proper address. 
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DEVICE CHARACTERISTICS TABLE 


This table describes the DISK II to 
the DOS. The information will always 
be the same if the current disk drive 
from APPLE Is used. The table 
contains the following: 00 01 EF D8. 





Good Luck.... 


IN 9 EASY STEPS 
DISK-BASED PGM 


BY PAUL WYMAN 


Listen my friend: 
about a cert ess prince, who 
once upon a time shared a wonderful 
and magical little program with his 
friends. Each day they learned a 
Little bit more about how to use the 
program, finding more and more magic 
all the time... It seemed th. 
program was 

and that it could practically do 
everything for everybody. Finally it 
became obvious that the equally 
nameless program did have a 
limitation. It was only capable of 
storing its output on cassette tape 
instead of disk. The ability to save 
and load the results of the nameless 
program to and from disk was a feature 
devoutly to be wished. Finally a way 
was discovered, and albeit crude, was 
In fact an answer to the problem. 





little fable 









The technique works like this: once 
you have used the program to create 
the results you want to save drop into 
the monitor and display locations 
74.77(Hex). Before your very eyes 
will appear two copies of the pointer 
to the "end" of your results. The 
pointer to the "beginning" lies in 
70/71 and will be "00 20" or $2000 
make note of the ‘end’ pointer, and 
perform the following steps: 


(1.) Reboot DOS 


(2.) BSAVE RESULT.74: LLHH, AS2000, 
LSLENG 


In (2) above, RESULT should be a 
descriptive name for your purposes. 
Next save the actual low (LL) and high 
(HH) byte values from 74.75 into the 
name of the file, so you won't forget 
the end pointer. You now have a 
binary image of the results you 
developed in the form of a disk file. 
LENG Is the length of the file. 

To restore the file and use the 
nameless program again to change or 
display your previous results simply 
follow these steps: 






) >BLOAD RESULT. 74:LUHH 

)  >BLOAD NAMELESS. PROGRAM 

) CALL 2088 

> = ADO 
) Ctrl-D to escape add function 
) Hit Reset 

» 87%: 

)  *803g 

) sLIST 


UL HH LL HH 


Don't forget to re-establish the end 
pointer two times into both 74.75 and 
76.77, because the prince once said 
"two Is a very good number". 


Enjoy... 


Computerland 


of San Francisco 
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REVIEWS 


SMAIAAYU 


REFERENCE 
MANUAL 


BY KEN GILVERMAN 


The RED BOOK has been replaced. The 
new Reference Manual 1s following the 
new size of 6" by 8" and Is 196 pages 
long with a complete circuit drawing 
of the Apple in the back. 


It should be at your local computer 
store for the price of $19.95 
(A2L.0001A). 


The book was written by Chris 
Espinosa, an Apple Core member, and is 
the best manual I have seen come out 
of Apple. It covers subjects that 
were in the original reference manu 
(Red Book) but in more detail with 
subjects to find. There are 
good examples included with each 
topic. There 1s a complete listing of 
both monitors (old and new autoboot). 








The table of contents 1s 6 pages long 
with the following chapter headings: 


APPROACHING YOUR APPLE 
CONVERSATION WITH APPLES 

THE SYSTEM MONITOR 

MEMORY ORGANIZATION 
INPUT/OUTPUT STRUCTURE 
HARDWARE CONFIGURATION 
APPENDIX A, 6502 INSTRUCTION SET 
8 - APPENDIX B, SPECIAL LOCATIONS 
9 - APPENDIX C, ROM LISTINGS 

10- GLOSSARY 

11- BIBLIOGRAPHY 


MaMeune 
perenne 


This Ls one publication you will want 
in your reference Library. Check with 
your local computer store. 


HANDBOOK 


BY KEN SILVERMAN 





The basic computer language in most 
home type computers 1s BASIC. But 
BASIC has never been standardized; 
there are more than 100 "dialects". A 
guide called "The Basic Handbook: an 
Encyclopedia of the Basic Computer 
Language", written by David A. Lien, 
provides good deal of help in coping 
with these assorted dialects. 





The book covers 78 of the most popular 
versions of BASIC {n such a way that 
its readers can convert nearly any 
Program to run on a computer that uses 
a different version. These Include 
more than 50 computers from I8H, 
Cromemco, Apple, Exidy, IMSAI, Heath, 
OSI, Radio Shack, Commodore, HP, and 
Wang, among others. The book 13 360 
pages and 1s available for $18.95 plus 
$1.35 postage from: 


CompuSoft Publishing 
8643 Navajo Rd. 
San Diego, CA 92119 


REVIEWS 


ROGER’S EASEL 


sve 





a WILSON 


I first met Roger Wagner at last May's 
Computer Faire, where he was selling 
the Apple II Utility Disc ( fantastic 
set of programs that are still in 
heavy use on my machine). Roger's 
attention to detall was immaculate, 
and the documentation 
in every way. (‘Complet: 
documentation includes a detailed 
tutorial-one that has examples as 
needed, and gives insights into the 
critical areas. A program ts 
‘complete’ when the documentation 
allows me to fully understand what 1s 
taking place, and why.) 








Roger's Easel is another ‘complete’ 
program. Easel 1s not another 
Electric Crayon. It is a Lo-Res Color 
Sketch program that employs the game 
paddles for fast pictures, logos and 
diagrams, etc.. (My Joy stick draws 
truly fast pictures). Integer and 
Applesoft routines are included to 
‘Link’ these finished pictures to user 
programs. Complete documentation 
describes the entire process and the 
procedure is made crystal clear. 


Actual use of the Easel 1s 
accomplished by following instructions 
listed in the bottom-of-screen window. 
Typing 'N' will give current color & 
X, and Y positions. 'H'elp switches 
to Page 2, for a complete list of 
commands. The left and right arrows 
and REPT keys together allow fast 
scrolling of this information, and 
shows a detailed description of each 
command. (Figure out how the scroll 
works--It's impressive). Roger states 
that user created pictures can be 
successively linked together for 
animation. 





The only flaw that I could find ts 
that at $13.95 (plus tax), the 
programs are too cheap. In today's 
market place price does not always 
denote quality or excellence, and many 
twenty to forty dollar packages lack 
any of the nice extras included In the 
Easel. To order ROGER'S EASEL, or for 
more information, please contact: 


Southwestern Data Systems 
0. Box 582 
Santee, CA 92071 
(718)562-3670 


As a footnote, it is worth mentioning 
that for anyone who has lost track of 
his/her Applesoft programs there is 
another offering from 
Santee--APPLE-DOC. This three program 
set gives you the ability to list 
every variable used In a program and 
all the Lines each 1s used on, a list 
of all the lines called by a COTO, 
GOSUB, etc., or to rename any or all 
occurrences of any variable, change 
variable types, replace constants. 
This program set {3 also only $13.95 
(cassette version $9.95). 





Support your local programmer. You 
need programs, programmers need 
Income-reach a happy comproaise. 
Everyone benefits. 5 











PILGRIMAGE 


ev 





ne wiLeon 


On a recent trip to the Los Angeles 
area (I think the city Lait signs are 
posted about twenty alles south of San 
Jose) I took time out to stop at the 
all time “shrine” of Apple 
users-Computer Components of Orange 
County. 


The place is filled with all the 
goodies that cast spells on the 

+: llet; software 
super Joysticks, 





galore, gadget 
magazines, books, lessons, tutorial 
sessions, hardware on line and 
working. It Is possible to get many 
special items (cranked out in the back 
rooms, no doubt) Including Interface 
cards, lower case boards, and many 
more things that I don't fully 
understand. 





the many magazines 13 a newcomer 
called "The Apple shoppe", which Is 
published more or less monthly for the 
purpose of promoting practical uses of 
Apple Computers, by Compu-Tutor Co. 
Subscriptions are $12.00 a year, and 
are available from: 


The Apple Shoppe 
P.0. Box 701 
Placentia, CA 92670 


Volume 1, No.3 has several short 
programs, a Graphics Workshop section 
on Hi-Res Shapes, a discussion on 
Personal Computing's Family Tree, a 
short primer on Pascal, and a very 
useful printing subroutine for the 
WHATSIT program (something sorely 
needed). You don't want to miss Kin 
Clark's wethod of Cooling a PET. 


And finally, 13 anyone able to 
"really" review some of the asseablers 
that are available for the Apple II? 
Just reading the documentation for 
Programma's ASH/65 EDITOR ASSEMBLER 
scared we off. 1 would love to hear 
from anybody with "hands-on* 
experience on the ASH/65._ In v1} 
fairness, the documentation Jy 
thorough, and will probably be 
future challenge. 

LISA, Programma's Int 
KIS, Prograamess, Iatersctiv 
syntax 13 not Identical to Hos 
Technology, which requires sone 
thought before Jumping In. Leproveg 
version 1.5 was Just announced, sey 
(you guessed) mine Is the *olg 3 
(looks like software 

learned something Fron vere have 
aakers). Sear 
I've Just started using th, 
Concepts Text Processing sorerare 
Assembler--Seems to do what Tone 
done without a lot of frills (that 
can't remember anyway), eM 

















Anybody with knowledge of new 
should send a meno to the 
as there are over 800 
benefit from your ex 

Maybe someone from Progrannce(3). 
tell us how well thetr gippcould 
assemblers have been accepteg rent 
“updates” are handled. and how 


Product: 
Cléer Press 
FS who can 





LISA AUTHOR 
STRIKES BACK 


TTER 





Dear "Press", 


I read "Pilgrimage Plunder” by Gene 
Wilson in the September Issue. Being 
“someone from Programa” and, in fact, 
the author of LISA I was prompted to 
reply to Gene's comments on ASH/65 and 
LISA. First, ASM/65 is a 
“professional” product (whatever that 
1s) and the documentation resembles an 
IBM wanual more than anything else 
(because it was written by an ex-IBM 
user) and as such it is not easy 
reading for the average Apple owner. 

There are a few “cyber-snobs" out 
there however who eat the stuff alive, 
not to mention pay $69.95 for a 
product which Ls "professional" even 
though It may not offer any advantages 
over similar programs. For the person 
who Likes to impress people, ASH/65 Is 
definitely the choice. ASH/65's main 
advantage {s that it incorporates the 
Apple PIE text editing system which {s 
an order of magnitude better than 
anything else. If you plan to do a 
lot of text manipulation on source 
files, ASH/65 1s your only choice. 









With regards to LISA I have several 
comments to make. First, the "few" 
mnemonics which were changed were the 
Sweet-16 mnemonics, none of the 6502 
mnemonics were affected. Several 
“extended” mnemonics were added, 
possibly this is where the confusion 
lies. Extended mnemonics are simply 
duplications of an existing 
with a different name. For 
the BCC (branch If carry clear) test 
can be used after a comparison to test 
for the less than condition. "Carry 
Clear" does not register in most 
peoples minds as “less than*. So I 
added the memonic "BLT" for "branch 
Af less than” 
code as *BCC™, 














It generates the same 






“branch if greater than or equ 
been added as has "BTR" &@ “BFL” 
"branch if true and branch if false”. 


i ane also been added and may be 





hese “extended mnemonics” are 
Included IN ADDITION to the existing 
memonics, if you don't like them you 
don't have to use thea. 


Some of the Sweet-16 mnemonics have 
been changed so that they conform to 
the HOS three character mnemonic 
syntax. All two character anesonics 
converted to three character 
nics and all four character 
mesonics were also converted to three 
character mnemonics. The reason 
behind this 1s simple, it improves the 
Listings enormously if the mnemonics 
are all the same length. 











As for the syntax not being identical 
to MOS's syntax I must point out that 
only one assembler for the Apple II 
uses HOS syntax and that's ASH/65. 
When I wrote LISA I researched the 
field carefully and used a syntax 
which was compatible with most of the 
existing assemblers at the time. 


LISA's syntax, with the exception of 
decimal addresses and octal numbers 
(and who uses octal numbers anyway?) 
1s IDENTICAL to MOS's. Again, I added 
some extensions to make LISA easier to 
use than would normally be the case 
Since none of the assemblers aval lab! 
for the Apple II have a completely 
compatible syntax, there really is no 
"standard" syntax. 1 recognized this 
problem when writing LISA and as such 
I tried to include a mixture of each 
of the available syntaxes. For 
example, load the accumulator with a 
hex constant 1s specified as: 


LDA 00 (SO IS THE CONSTANT 

TO BE LOADED) 
when using the original Microproducts 
asseabler, or as: 

LOA #50 








When using a MOS compatible asseabler 
(such as ASH/65 or the SC Asseabler 
II). I wrote LISA so that both 
methods of specifying an immediate hex 
constant could be used. The drawback 
to this scheme? Well in t 
“standard” MOS syntax world the 
Microproducts version means “load the 
accumulator from decimal location 0". 
Since I didn't want to disallow this 
function I decided to differ from HOS 














rather than not allow the 
Microproducts’ syntax. The reason 
behind this is simpli "LDA OW ts 


fer to type into the machine than 
is "LDA #$0" (in the latter version 
you have to type two extra shifted 
characters) Since I wanted to make 
LISA extremely easy to use I decided 
to use a different syntax to specify 








dec numbers. To load the 
accumlator from location 0 you would 
type: 

LOA 10 


where the "I" tells LISA that the 
following is a decimal number. The 
only other variance from the “HOS 
standard" concerns the specification 
of a low or high order byte in an 
immediate expression. To load the 
accumlator with the low order byte of 
an address you would use: 

LDA address 

-or- 

LOA #<address 
To specify the low order byte you may 
user 

LDA faddress 
only. The "#&"option 1s not supported 
(the reason will be clear when version 
2.0 is released). 








To specify the high order byte of an 
address you would uset 

LDA @address 
When using a HOS syntax assembler. 
Again I didn't like the idea of having 
to type two shifted characters, so 
once again I "borrowed" LISA's syntax 
from the SC Assembler II. To specify 
the high order byte you would use the 
following: 

LDA/ addres: 
And that (unless I've forgotten 
something) Is the extent of the syntax 
differences. Naturally LISA's pseudo 
opcodes are incompatible with the HOS 
syntax, but then so are everyone 
else's. LISA was designed to be easy 
to use, not follow blindly the syntax 
rules designated by some electrical 
engineer with considerable computer 

background. 














also wondering why Gene knocks 
Lisa’ and praises "EAT". “EAT* (from 
Software Concepts) contains 
syntax irregularities as does 
I'm not knocking "EAT", it is a fairly 
good assembler (although overpriced 
but Gene seems to imply that LISA 
incompatible with MOS syntax wheres 
"EAT" ts not. 











Concerning updates, Programa Int'l 
has one of the most liberal update 
policies around. Simply send in your 
original disk (so we know you actually 
bought the product), plus the 
difference in cost be! 






you will receive the upda 
new documentation by return mail. 

Speaking of updates I would like to 
take a moment to mention the new 
features in LISA 1.5. LISA 1.5 works 
with the DOS 3.2 subsystem, as well as 
the auto-start ROM and Apple II 
PLUS (or minus In some people 
opinions!). Several new commands have 
been added to the command processor 
which allow you to modify (edit) 
existing lines, determine the length 
of the file, break to the monitor, and 
write your textfile to the disk as a 
text type file so that you may edit 
your file with the Apple PIE text 
editing system should your progr: 
require extensive modification. 
Several new pseudo opcodes have been 
added to the system increasing LISA's 
flexibility immensely. LISA now 
supports 23 pseudo opcodes making it 
easily the most flexible assembler 
around (and also the assembler best 
integrated into the Apple II). The 
pseudo opcodes include: 


NLS - NO LISTING 

LST - LISTING ON 

EQU - EQUATE 

EPZ - EQUATE PACE ZERO 
ORG - PROGRAM ORIGIN 

















OBJ - OBJECT CODE ADDRESS 

‘ADR - ADDRESS PSEUDO OPCODE 
BYT - BYTE DATA (* NEW *) 
HBY - HIGH BYTE DATA (* NEW *) 


HEX - HEX STRING 


ASC - ASCII STRING 

STR - STRING W/LENGCTH BYTE 

DCI - DEFINE CHARACTERS IMMEDIATE 
(* NeW *) 

INV - INVERTED CHARACTERS (* NEW *) 

BLK - BLINKING CHARACTERS (* NEW *) 

PAG - SKIP TO TOP OF FORM (* NEW *) 

PAU - PAUSE, FORCE ERROR (* NEW *) 


END - END OF TEXTFILE 


ICL - INCLUDE, CHAINS TEXTFILES 
DCM - DISK COMMANDS, MULTI-PURPOSE 
DFS - DEFINE STORAGE 


VERSION 2.0 PSEUDO OPS 
LET - REDEFINES A LABEL(FOR LOCAL 
‘STORAGE ) 
FLT - FLOATING POINT NUMBER 


In addition, error and listing options 
have been improved considerably. 
Version 2.0 (for the language card, to 
be released in January) has several 
improved error messages, supports 
eight character labels, signed and 
unsigned decimal integers (now you can 
specify "JSR 1-936" just like in 
BASIC!), improved syntax concerning 
decimal constants, multiplication and 
division in address expressions are 
also supported as are local labels. 











LIGA BTRIK 





BACK (cONT) 





If you ever have any questions about a 
software product, or wish to report a 
bug, or want to obtain an update, 
Please contact the author or 
distributor, "We're here to help.” 


Signed, 

Randell Hyde 
Lazer Systems 
12808 Magnolia 
Chino, CA 91710 


Editorial note: In Cider Press Vol. 
2, No. 5 I asked for someone to come 
forward and "really" review some of 
the assemblers that are available. 
I'm glad that Randy has an 
call. It's good to get an ‘in depth’ 
survey of LISA. I must, however, 
question where Randy found a 
comparison between LISA and any other 
assembler. I use the Software 
Concept's Text Processing 
System/Assembler - I'm comfortable 
with it, and don't feel at all that 
it's ‘overpriced’. (Using a product 
4s a form of praise that certainly 
can't be ignored). Perhaps we can 
find some ‘neutral’ arbitrator to 
decide the relative merits of each 
product. (Sounds like another call 
for a review-and, in fact, it is. The 
actual merits of any program will be 
ultimately decided in the marketplace, 
and, having purchased both products - 
my vote is therefore cancelled out.) 














The Interactive aspect of LISA 
certainly makes it one of the more 
desirable products on the market, and 
I personally like the approach that 
Randy has taken to continually improve 
his work. 


I thank Randy for providing the Core 
with the above information, and hope 
that he will continue to enrich us 
with his knowledge. 





APPLE '21' 


OY Jim LINHART 


I want to spread the word of a card 
that's a gas to play and has the 
hi-res graphics of any card game 
I've ever se It's Apple 21 and 
it's a game worth adding to your 
Mbrary. 








Apple 21 is the game of Las Vegas 
blackjack and it provided me with a 
good feel for the game. One thing I 
know, I'm no gambler and it's easier 
to pay a $10,000 debt by tng 
"RESET" than by selling pl or 
refinancing my house. 








Apple 21 plays with a 52 card deck and 
when Lt reaches the end of the deck it 
goes on to reshuffle. Card counters 
now have a chance to perfect their 
skills, and the game Includes such 
aspects as insurance bets and 
doubling. I sure enjoy playing this 
game and am surprised sometimes at how 
wuch time (and money) goes by. 


TRENDCOM 100 


BY SCOT KA 





“What's that you say? A reliable 
hobbyist thermal printer for less than 
$500? With an Interface? And paper 
readily avallable? Why, you must be 

+" While the final statement Is 
undoubtably true, it does not negate 
the previous ones. 





The printer of which I speak is the 
Trendcom 100 - a little 40 column, 
bidirectional Job that hums along a 
40 CPS. It is, in the vernacular, a 
real sweetheart. 








The system consists of the printer, an 
intelligent interface card and a roll 
of paper (80 ft.) for $850. Extra 
paper 1s $5.00 for two rolls which 
prints in blue,; black is a little 
higher. 


Regular readers of this Journal are 
familiar with my propensity for 
panning printers. Alas, I find little 
to complain about with this gem. I 
have been using one since mid-October 
without a glitch. True, its narrow 
format makes it impractical for 
business uses. Its 40 columns allow 
for calendars and biorhythms, and 
Little else; but it sure Is terrific 
for listings. Anyone who has 
struggled along for a year editing 
programs 24 lines at 2 time knows how 
valuable a cheap printer would be - 
Trendcom fills the bill admirably. 





The company itself (Trendcom, 484 
Oakmead Pkwy, Sunnyvale CA 94086) 
impresses me for a number of reasons. 
First, it sells only to dealers - 
which 1s a good step in helping the 
industry to mature. 


Secondly, it actually delivers its 
product before it {s due, as opposed 
to the 3-months-late de-facto-standard 
we have been plagued by up to now. 
And third, they don't lie about the 
product. What they claim about their 
product in their talks to dealers is 
true. 


Without hesitation, I recommend this 
printer to hobbyists; If I were you, 
I'd begin leaving Christmasy hints 
around the house, naming the Trendcom 
and your favorite computermonger. 
Happy Listings. 














DISK Il 


SY ANDY MERTZFELD 


The APPLE II Floppy Disk Subsystes was 
released on July 7, 1978 only about a 
month after it was originally promised 
(although {t was tantalizingly 
displayed at the 2nd Annual Computer 
Faire in March). For the most part, 
it was well worth the wait. 


The drive itself {s based on the 
standard Shugart Mini-floppy drive but 
with Its electronics completely 
revamped by APPLE. The specs are 

ther impressive; it has a transfer 
rate of 156K bits per second, nearly 
100 times faster than the cassette 
interface. It has an tmpressive 
capacity of 116K bytes (183K with 
Pascal), about 30 more than aost 
mini-floppies get. It can access any 
data stored on it in well under a 
second, which sure beats listening to 
obscene squawks from a tape recorder. 
An average of 15 to 20 programs will 
fit on a single diskette (depending, 
of course, on program size); the 
diskettes cost around $5.00 apiece - 
shopping around pays. 








For a list price of $595 you get one 
disk drive with case and connec 
ribbon, one controller card capable of 
handling up to two disk drives, and a 
complete disk operating systes (D0S) 
with 19 commands. All the hardware 
and software you need to get going are 
included, even a blank diskette; you 
Just plug the controller card into any 
peripheral slot except 0, plug the 
drive into the controller card, and 
you're ready to go. The bootstrapping 
Foutine (which gets the thing running) 
1s stored on 512 bytes of PROM on the 
controller card, so all you have to do 
is reference the proper slot and the 
firmware takes over to load in the D0S 
and even start executing a program of 
your choice. 





The DOS 1s a real memory hog. APPLE 
claims you can get "full disk 
capability in systems with as Little 
as 16K RAH" - which I suppose is true, 
1f you don't need APPLESOFT, HIRES 
Graphics and you're willing to erite 
programs that use less than X& or 30 
Apparently the entire DOS must be 
resident at all times, and it needs 8 
= 12K depending on how many file 
buffers are used. This bad way 
to set up a microcomputer's operating 
system, unless you're in the business 
of selling memory. 












Since you usually only use one comand 
at a time, it should be able to 
overlay Itself to conserve its menory 
requirements; only about a & nucleus 
should have to be resident. For soae 
inexplicable reason, APPLE did not 
overlay; consequently you really need 
a 32K system to use the 00S 
comfortably. 


The disk system is an important 
advancement; 100K + of online, 
direct-access storage transforms the 
APPLE from a sophisticated toy into & 
full-fledged "real" computer. Its 
price 1s a bargain in the current 
market, and it should make @ 
t addition to anybody's 





80 COLUMNS 


eve 





Recently your roving reporter was in 
Sunnyvale, CA to see and talk to Marty 
Spergal of H & R Enterprises. H&R 
43 you might know manufactures the Sup 
'R" Hod we use in our Apple. 


While getting a tour of the plant I 
was shown a working prototype of a new 
1/0 card, BELIEVE IT OR NOT I saw 80 
coluans by 24 Lines, upper and lower 
case, coming out of the Apple into a 
monitor. The resolution on the 
Inexpensive monitor (8HHz bandwidth) 
was fantastic. I asked about this and 
the designer, John Wilbur, told me 
there 13 a new circuit (being 
patented) that adjusts the contrast 
between the horizontal and vertical 
lines to make it look like an 
expensive monitor. 


According to M & R, the new card will 
be in computer stores for your 
evaluation some time in the end of 
January (1980). They say the card is 
compatible with the Apple Pascal 
System (so don't rush to buy a 
terminal), works with Apple DOS as a 
Hello program, and should work with 
most existing software. This {s great 
for those of you working with word 
processors or time share programs. In 
fact John Draper has started to 
implement a new version of EasyWriter 
to work with this card with some new 
features. 


4 & R Enterprises says ask your local 
computer store for "SUP 'R' TERMINAL". 
Take my word for it, I saw it work - 
as of this time they did not give ae a 
retall price. 


APPLE DOC 


BY RANDY FimLo® 


APPLE-DOC 1s a 3 program set designed 
as an ald to the development and 
documentation of APPLESOFT programs. 
The 3 programs are 1) Vardoc, 2) 
Linedoc, and 3) Replace. They were 
designed, developed and documented by 
Roger Wagner of Southwestern Data 
Systems. 

Vardoc overcomes one of the 
fundamental deficiencies of most, if 
not all, versions of BASIC - the 
non-centralized location of all 
variable names. Vardoc, which 1s 
short for Variable Documentation, 
finds all variable names used in your 
progam, alphabetizes them and lists 
them on your CRT and/or printer. You 
also have the option of writing a 
separate file which contains a 
description of each variable allowing 
you to delete the usual REM statements 
from your program, saving memory and 
increasing execution speed. 

Using Vardoc is the essence of 
simplicity. For Disk II users, load 
your program in first, then EXEC 
Vardoc. Tape users load their 
Program, type in some PEEKs and POKES, 
and load Vardoc. Roger's banner 
appears, hit any key and "Working" 
appears along with an estimate of the 
time to complete the search and 
alphabetizing process, generally less 
than a minute. 











At this point, a complete list of 
variables {s listed. Array variables 
are Indicated by an asterisk (*) for 
each dimension of the array. After 
the name of each variable, EVERY line 
in which the variable {s used Is 
Usted. 

After listing each of the variable: 
you can at your option create 
separ. file of descriptors for all 
or some of the variables. 

Additionally, as you are supplying the 
descriptors, typing an 'L' lists the 
lines that the variable {3 on. 

Finally, after you have entered the 
descriptors, you can save the list of 
variables and their respective 
descriptors to a special disk file. 

For documentation purposes, this list 
can be output to a printer. Later, 
after you have modified or extended 
your program, the list can be read in 
for additional updating. 

Linedoc {s similar to Vardoc and 
performs several functions. First, it 
constructs a table of every line 
referenced by GOTOs and GOSUBs. 

Second, any line numbers which are 
called by mistake (resulting in an 
UNDEFINED STATEMENT error) are listed 
at the end of the table and indicated 
by an asterisk (*). Descriptors can 
be added, saved, and retrieved as in 
Vardoc. The main use for Linedoc is 
to unscramble the contorted logic 
which typically appears in even the 
best of programs. 

It seems that I have saved the most 
interesting program till last: it is 
called REPLACE and allows you to 
replace various elements in an 
Applesoft program with replacement 
sets of your choice. You can change 
variable names, change numbers to 
variables or vice versa, replace a 
literal, document a literal, list 
lines, and convert Integer programs to 
Applesoft with a minimum of typing. A 
"Literal", by the way, 1s any 
character or set of characters such 
‘e', "PRINT', 'Al', etc. When 
replacing either variables or 
Mterals, the Replace program asks If 
you want to replace all or just some. 

If you respond with ‘some’, it will 
list out the entire line and ask you 
whether or not to do the replacement. 

Multiple occurrences in the same line 
are listed separately allowing you 
complete flexibility in doing the 
replacements. If you respond with 
‘all Replace changes them all 
without listing. Some useful 
functions of Replace are: changing 
real variables to integer variables 
and vice versa and changing INPUT 
statements to GET statements. 

ALL three programs - Vardoc, Linedoc, 
and Replace - come complete with 
excellent documentation telling you 
not only how to use the programs, but 
how the programs work 
APPLE-DOC is available from local 
computer stores or from SOUTHWESTERN 
DATA SYSTEMS. P.O. Box 582, Santee 
CA 92701 for $13.95 for the diskette 
or $9.95 for the cassette. It is 
probably the best programming buy for 
the money, and at these prices, Roger 
should not be ripped off by bootleg 
copies. 

Ask for APPLE-DOC by name: do not be 
confused by shoddy imitations! 









































GRAPHICS TABLET 


BY KEM SILVERMAN 


Apple now has its new Graphics Tablet 
in the stores. It will allow the user 
to convert graphic data into digital 
information that may be processed by 
traced or drawn freehand on the tablet 
surface and are instantly displayed on 
the system monitor. Any image created 
can be stored on the system disk for 
later use. Block diagrams, 
architectural renderings, logic 
diagrams, etc. are a few of the 
applications. 








The tablet consists of 15 by 15 inch 
tablet, a mylar overlay, stylus, 
diskette software and interface. It 
uses the Apple power supply and 
results in a low profile tablet, fewer 
boxes to contend with, easier hook up, 
and high reliability. 


The Software Package 1s composed of 
some assembly language fast draw 
routine and the master control 1s in 
Applesoft BASIC. It can process up to 
120 coordinate pairs per second. This 
means that unlike other systems it 
11 keep up with the fastest hand 
motion. 











The tablet is used by pressing the pen 
on the designated square to select a 
function. Some items that are 
selectable are CLEAR, REDUCER, 
CALIBRATE, PEN COLOR, DRAW, LINES, 
DOTS, BOX, BACKGROUND COLOR, and some 
of the commands are selectable from 
the tablet are CATALOG, SAVE, LOAD, 
SLIDE, and AREA. These are just a few 
and a complete listing can be obtained 
by checking with your local computer 
store. 









THE THREE MINUTES 1S UPE 


THIS E66 TINER TS BROUGHT 
YOU COURTESY OF THE 


Rie 


VER. 1.7 FOR APPLE II* C COMPUTERS @& 
100 PAGE, PROFESSIONALLY WRITTEN MANUAL 
FORTH INTEREST GROUP COMPATIBLE 
DIRECT HOT-LINE TO SYSTEM DEVELOPERS 
INCLUDES ITS OWN DOS 
CAP’N SOFTWARE HAS DELIVERED 100’s OF 
WORKING FORTH SYSTEMS 
UPDATE OFFER: TRADE IN YOUR VER. 1.6. DISK 
FOR FULL CREDIT OF PURCHASE 
PRICE TOWARD VER 1.7 
RUNS ON APPLE II OR APPLE II+ WITH 
1 OR MORE DISKS AND 48K. 

ALSO RUNS ON LANGUAGE CARD 
AVAILABLE AT COMPUTER STORES OR 
DIRECTLY FROM CAP’N SOFTWARE 
PRICE, SYSTEM $140, MANUAL ONLY $20 


CAP’N SOFTWARE 
P.O. BOX 575 
SAN FRANCISCO, CA _ 94101 










ALSO AVAILABLE FOR PDP-11+ 
COMPATIBLE WITH VER. 1.7 FOR APPLE 
DOWNLOAD PROGRAM DEVELOPMENT 

OR EXECUTION 
RUNS STAND-ALONE OR UNDER RT-111 
RSX-11Mt, OR RSTSt 

AVAILABLE DIRECTLY FROM CAP’N SOFTWARE 

PRICE, SYSTEM $145, MANUAL ONLY $20 

*Trademark of Apple Computer Corp. +Trademark of DEC. 
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ARLER-VOUS NON, JE PARLE 
j PASCAL? BASIC. 
Now, JE PARE 


NON. JE PARLE 
CoBor, 






MuMeLE 
ERM 
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APPLESOFT 


RAM - FP 


BY Baa STO 


Apple Computer has quietly decided to 
drop the RAM versions of Applesoft II 
Basic. Sometime in the last two or 
three weeks, and with no notice to 
their dealers, Apple stopped including 
the Applesoft II cassette with their 
computers, and removed the disk 
version of Applesoft from the master 
diskettes that come with the disk 
drives. 


The reasons quoted by Apple included 
the desire to concentrate support on 
one version of the language - 1.e 
ROM version (the Pascal/Language 
system uses the ROM version of 
Applesoft - that is, although the 
Language will be in RAM, it will use 
the same memory locations as the 
current ROM version). Apple in 
addition stated that the costs and 
manpower could be better utilized on 
developing new projects. 





As of this time if you call the 
Hotline about a problem with Applesoft 
you will get answers but sometime in 
the near future that support will be 
stopped. 


NOTE: The current version of 
Applesoft on the card includes the new 
Auto-Boot ROM. 


FP-INT-FP 


In going through the new issue of the 
Apple user group newsletter "Contact 
5" I found a great routine that will 
aid in converting programs from 
Applesoft to Integer and vice-versa. 


This article assumes that one has a 
disk drive and Applesoft in ROM. A 
printer {s also helpful especially 
when going from Applesoft to Integer. 

When I say that this routine will aid 
you in program conversion I mean that 
At will save you the Job of ted{ously 
ping those zilifon and a half 
program lines. The converted program 
will in most cases not run correctly 
owing to the differences in the two 
languages. Making it work 1s up to 
you! 





Here is what to do...... 


1, Please read all of the following 
Instructions before you do anything 
else. It Is easy to goof this up If 
you don't understand what {s happening 
(1 even fouled up my text editor 
writing this article). 


2. Boot the disk drive. Insert a 
disk containing the program you want 
to convert. This disk should have 
plenty of room on it. 


You will be writing on this disk so If 
you are worried about wiping something 
out .. get another disk... Save the 
program you want to convert on to it 
and use that disk. 


3. Load the following routine to the 
Source program using any available 
line numbers. Do this near the 
beginning of the program if possible: 


10 REM CONVERSION ROUTINE 
20 REM "*"="CONTROL DO” 











30 PRINT "“OPEN XX" 
40 POKE 33,33 

50 PRINT ""WRITE Xx 
60 LIST 

70 PRINT "“CLOSE 
80 END 


5. "RUN" the modified source program. 
The program will open an “exec” file 
on the disk and list itself into this 
file. This file will have a "T* 
prefix and will not respond to a run 
command. It Is accessed through the 
use of the "EXEC" command. 


6. Now use elther the “INT” or the 
"FP" command to jump into whichever 
language you wish to use for your 
object program. 


7. If your source program is in FP 
and your object program Is to be In 
Integer turn on your printer. When 
the EXEC file "types" FP program lines 
in Integer.. all lines of the FP 
program will be typed in and evaluated 
by the Integer language program 
itself. Those FP program Lines that 
won't run In Integer will be flagged 
with error messages. If you have your 
printer on these program lines will be 
printed along with error messages. 
However.. integer will not insert 
these lines into RAM memory. 
If you don't have a printer.. 
to step 8. When you list the program 
back.. incompatible program lines 
wIll be conspicuous by their absence. 
If you are going from integer to FP 
don't bother with the printer. All 
program lines will be inserted into 
RAM and the error messages will appear 
when you try to run the program. 


go on 


8. Now execute the file by typing 
"exec xx". Subject to the limitations 
as noted above the file will type into 
RAH memory your object program. 


9. Delete the special routine from 
the object program. 


10. Save the object program back onto 
the disk. (Be sure not to save it 
under the original name - you will 
wipe out your source program! 





Now comes the fun part of getting the 
program to run In the new language. 


GOOD LUCK....-. 





FP 





FP RENAME 


(APPLE APPLUDATION MOTES: 


Have you ever written a progras that 
needed to check to see If a data file 
existed before trying to read It? 
Most programmers seem to use the 
method of opening the file, then 
reading Lt. If an ONERR statement Is 
in effect, an OUT OF DATA error Is 
trapped. This has the drawback of 
creating a file in the diskette 
directory that must then be deleted. 
Another method {ts using the VERIFY 
command. It works but can take a 
while with a large file. 











Here 1s an example of a progras that 
prompts for a file ye and will 
continue only If the file already 
exists. 








LIST 0,200 

100 TEXT: HOME: DSs CHRS (4): VTAB 11 
110 PRINT: INPUT "FILE MAME: “5AS 
120 IF AS = " ™ THEN END 

130 ONERR GOTO 160 

140 PRINT DS"RENAME “AS","AS* 








150 POKE 216,0: GOTO 180 

160 POKE 216,0: PRINT DS;"CATALOG" 
170 GOTO 110 

180 REM **HAIN PROGRAMS? 


The work is being done in line 180 by 
attempting to rename the file with the 
same name. It's possible to use the 
UNLOCK command here If the file needs 
to be unlocked later on in the 


program. 


FP MEM MOVE 


Much has been said in articles 
about how to do a mesory block sove 
from Integer Basic. It's alsost as 
simple to do it from Applesoft. 
You Just have to poke a short 
machine language routine into 
memory first. 


JLIST 200-250 

200 REM MOVE PG2 TO PGI 

210 POKE 60,0:POKE 61,8 

211 REM START OF BLOCK 

220 POKE 62,255:POKE 63,11 
221 REM END aa ‘ 

30 POKE 66,0: 5 

AY REM START OF OBJECT MEMORY 
260 CALL 768: RETURN 

241 REM DO THE MOVE 


That's all there Is to !t- 





FP PGM MOVER 


It is sometimes desirable to have an 
Applesoft pro: start at an address 
other than the default $801 (ROM 
Applesoft). A "safe" area for machine 
language, the desire to use page 2 of 
text or to make room for a large 
program that uses HIRES graphics are 
the usual reasons. Here 1s a good way 
to do this for Disk II users. 











Since a diskette holding this type of 
program is generally dedicated to a 
specific purpose, the actual changing 
of Applesoft's pointers will be done 
by the "HELLO" program. Here's an 
example: 


Must 

100 TEXT: HOME: DS = CHRS(4) 
110 IF PEEK (108) = 12 THEN 150 
120 POKE 104,12 

130 POKE 103,1 

140 POKE 3072,0 

150 PRINT DS;"RUN HAIN PROGRAM” 


This program makes room for using text 
page 2. This Ls what happens when the 
disk boots: 


Line 100 simply clears the screen and 
sets the variable DS equal to Control 
0. 


Line 110 checks the high order byte of 
the beginning of program pointer ($68) 
to see just where the program is 
located. These pointers are explained 
on page 180 of the Applesoft manual. 

If the program is already in the 
correct location, a branch is made to 
Hine 150 where the application progran 
is RUM. 





Line 120 ts reached only if the test 
on the line above fails. It POKEs the 
coggect new high-order byte. 


Line 130 POKEs the new low-order byte. 


Line 180 changes the byte immediately 
Preceding the new program location to 
zero. Note that this byte must ALWAYS 
be rero for Applesoft programs; | (S800 
1s a zero when a normally located 


Program 1s in memory.) 
Line 150 RUNs the main program. 


This works "on the fly* because no 
references are being made to other 


program lines after the pointers are 
changed. The program is linear. 


Another way of changing these pointers 
1s to do It from within the 
application program. The drawback is 
that it 1s somewhat slower. To do it, 
use a subroutine to check the pointers 
like this: 


100 LET DS = CHRS(4): 
PROGRAM 


60000 IF PEEK (108) = 12 THEN RETURN 
60010 POKE 104,12 

60020 POKE 103,1 

60030 POKE 3072,0 

60080 PRINT DS;"RUN HAIN PROGRAM" 


The difference here is that if line 
60000 1s true the program continues 
execution. If the expression is false 
the pointers are changed and the 
program reruns itself. (The speed 
difference occurs when relocation must 
take place and the entire program must 
be re-loaded from disk.) 


"GET" TRAP 


BY MAX 4 MARE 


Full many a program bit the dust until 
the Dec. 1978 issue of "Contact" 
(from the Apple Computer Co.) revealed 
the culprit. "GET" was getting In the 
way. Unless a "GET" statement was 
followed by a "PRINT", the DOS command 
would be ignored. 


The new 3.2 00S manual mentions this 
problem and presents the "cure" on Pg 
285 however a clearer picture emerges 
in the June and October Issues of 
"Call APPLE", edited by Val Golding. 


"..+-first set DS to equal a carriage 
return, followed by a CONTROL/D. DOS 
requires that a carriage return be 
performed before each DOS command. 
Now It 1s possible to have multiple 
00S commands in one program line.” 


“In addition, DS will now allow (you) 
to "TRACE" with DOS up, and it WILL 
permit a DOS command to directly 
follow a "CET" statement.” 





Example-A. 

100 DS=CHRS(13)+CHRS(%): PRINT “OPEN 
COLORS" DS "WRITE COLORS" (note 
absence of delimiting colon and 
semi-colons) 


Example-B. 


100 DS=CHRS(13)+CHRS(4): 
110 IF AS=..... 


SPC(X)-TAB(X) 


OY MAX 2 


CET AS 


Applesoft tab flelds are restricted to 
three as compared to the normal five 
in Integer. Details appear In the 
Apple manuals. This limitation 
sometimes imposes restrictions on the 
number and format of data outputs and 
headings. A detour around these 
roadblocks {s Illustrated: 


= (DATA GENERATING OUTPUT NOT SHOWN)... 

150 DS="DATE” 

160 RS= "RAINFALL" 

170 SS="SHOWPACK" 

160 FS="RUNOFF" 

190 PRINT DS,RS,SS,FS 

200 PRINT : PRINT 

210 PRINT DS; SPC(3);RS; SPC(3);SS; 
S$PC(3)5FS 


Line 210 produces a much nicer format 
for the data output. 


The SPC(X) command can only be used in 
2@ print statement and may be located 
anywhere within that statement. When 
preceded and followed by a semicolon, 
SPC(X) Introduces X number of spaces 
between the item preceding and the 
{tem following it. 


The TAB(X) command 1s used within a 
print statement but only { 
following the print co 
contrast to SPC(X), it dictates the 
absolute position relative to the left 
margin (defined as position 1) where 
the Item will be printed that follows 
It. Type in the following three lines 
to see this work. 





10 PRINT "P.PECK"; SPC(12); 
“PINK OR." 

20 PRINT : PRINT 

30 PRINT "P.PECK": PRINT TAB(12); 
“PINK OR.” 


$.XX TRAILING 0’S 


BY SOOT KAMINS 


The new APPLESOFT language is really 
terrific - especially If you have been 
fortunate enough to get it on the ROM 
card. It does, however, have some 
pesky quirks - among which Is the lack 
of trailing zeros. 


One feels this lack when trying to 
write business and finance programs 
that use two digits after the decimal 
point - l.e., money stuff. Following 
Is a solution to the problem which, 
while Inelegant, does the Job. 





5 Z2S=".00"121$="0":D$="$" 

10 CALL -936 

15 REM HERE COMES A ROUNDOFF FUNCTION 

20 DEF FN A(R)=INT(R#100+.5)/100 

25 2:2:INPUT "TEST ";TEST:2: REM 
GIMME A NUMBER 

30 TS=STRS(TEST): REM WE TREAT THE 
THE NUMBER LIKE A STRING 

35 REM HERE COMES A "SPECIAL CASE" 
FIX (I DID SAY INELEGANT!) 

40 IF LEN(TS$=2 AND HIDS(TS,1,1)="." 
THEN 1500 

45 FOR SEEK=1 TO LEN(TS): REM IS THERE 
A DECIMAL IN THIS NUMBER? 

50 IF MIDS(TS,SEEK,1)="." THEN 1000: 
REM IF YES BRANCH TO LOCATION FOR 
FURTHER CHECKING 

55 NEXT SEEK: REM KEEP LOCKING UNTIL 
THE CHARACTERS RUN OUT 

60 TS=T$+Z2S: REM SINCE THIS NUMBER 
HAS NO DECIMAL, CONCATENATE A 
DECIMAL WITH TWO TRAILING ZEROS 

65 GOTO 2000: REM BRANCH TO THE 
PRINTOUT 

1000 IF MIDS(T$,LEN(TS)-1,2)="." THEN 
2000: REM IF THIS NUMBER HAS A 
DECIMAL W/2 DIGITS AFTER IT GO CET 
PRINTED 

1200 IF MIDS(TS,LEN(TS)-1,1)="." THEN 
1500: REM IF 1 DIGIT, GET ANOTHER 

1300 TS=STRS(FN A(TEST)): REM ROUND 
OFF THIS NUMBER TO 2 SIGNIFICANT 
DIGITS BEYOND THE DECIMAL 

1400 GOTO 30: REM GO BACK TO MAKE 
SURE TWO DIGITS FOLLOW A DECIMAL 

1500 T$=T$+Z1$: REM CONCATENATE THE 
NUMBER WITH ONE TRAILING ZERO 

2000 2:?:? DS+T$:?:?: REM PRINT A 
DOLLAR SIGH FOLLOWED BY THE NUMBER 
WHICH NOW HAS 2 SIGNIFICANT 
DIGITS BEYOND A DECIHAL POINT 

2100 GOTO 10: REM GO CET ANOTHER 
NUMBER 


POKE 51,0 


BY PHIL 








Have you ever been de-bugging an 
APPLESOFT program and after making 
some changes, had a "NOT DIRECT 
COMMAND" error message thrown at you 
when you tried to run the progras? 


You scratch your head because, 
plainly, the program is making the 
command, not you! 





There's a very simple answer - POKE 
51,0. Now that doesn't make sense, 
because syst monitor location 51 
(decimal) 1 prompt character. 
But you're doing 1s fooling the 











computer. 


When you interrupt a program that's 
running {n DOS and give any commands 
from the keyboard, the computer then 
takes ALL subsequent commands as 
coming from the keyboard Including 
those In the program itself. So if 
your program contains any DOS commands 
that are illegal from the keyboard 
(Open, Read, Write, etc) you'll get 
the NOT DIRECT COMMAND error message. 


Just type POKE 51,0: GOTO (inenum), 
and APPLESOFT 1s fooled into thinking 
that your keyboard Instruction (and 
all subsequent ones) came from behind 
the cursor and Ges TO the line. 





It's Just as useful written into 
programs. I have one program which 
uses the STOP command to permit me to 
make manual (keyboard) changes in a 
data matrix. The line after the STOP 
command reads POKE 51,0: PRINT ..., 
and the program later writes the 
changed matrix back onto tape. And it 
simply will not turn on the disk 
without that all-important POKE line 
in the program. 


OUT OF MEM 
ERROR IN FP 


BY RANDY FIELDS 





I have been plagued, albeit 
occasionally, with a mysterious bug in 
one of my APPLESOFT programs. The 
program would be happily execut ing 
away, and all of a sudden, a beep and 
at the bottom of the screen, an ‘OUT 
OF MEMORY IN LINE ##@' error message 
appeared. I did a PRINT FRE(O) and 
had 8K of memory left!! Impossible, 
you say, as did I. Well, the problem 
turned out to be “uncompleted FOR-NEXT 
loops. 





An uncomplicated For-Next loop looks 


Typically, line 20 contains a more 
complicated expression which causes 
premature termination of the loop. iw 
you have more than 10 of these 
premature terminations you get the 
dreaded OUT OF MEMORY error just Like 
the APPLESOFT Manual says for 10 
nested For-Next loops. 


The fix was supplied by Dick Huston of 
Apple Computer Inc. and looks like: 


a re I=110 10 
s5°¢3 
30 ir Je 15 THEN I = 10: 
NEXT I: GOTO 5O 
40 NEXT I 
50 continue with the program 


The problem occurs because the index I 
and only 9 more indexes can be stored 
in page 0 locations. The 11th has 
nowhere to go, and the OUT OF MEMROY 
error message appears. Prematurely 
terminated loops leave the page 0 
locations waiting to be completed. 

The fix in line 30 sets the index to 
its highest value (10 in the example) 
and the NEXT I before the COTO 
de-allocates one of the page 0 
locations. 


I made the modification after talking 
to Dick and it works! Thanks, Dick. 


P.S.: Leaving the variable names off 
in NEXT statements significantly 
Improves execution speed. 


AVOIDING LINE 
OVERRUNS 


BY MAX J. WAR 





The beginning programmer, confronted 
with the 40 character line limit, 
frequently finds himself with 
ungrammatical word spillovers and 
unwanted blank lines. A template is 
given below for the avoidance of these 
distortions. 


10 PRINT"...cseceeeseesccceeeeeeees 





This line must be 40 characters or 
spaces line. Proceed with frequent 
reference to the template above, 
keeping the line lengths within the 
Limits outlined by the dots or spaces 
to prevent line spillover. When line 
10 1s scrolled away, merely type 
another appropriately numbered line 
template. Adjust for changes in the 
number of digits In the larger Lines. 
The original line 10 may be used as 
opener with a "clear 
and. The use of the 
semi-colon as a ‘carriage return 
suppressor’ will prevent the 
occurrence of a subsequent inadvertant 
blank as is illustrated. 





10 PRINT"... 








6503 CPU 


@Y PAUL KMEVELS 
FROM MICHIGAN Ai 





It has been rumored that Apple 1s 
working on an apple III computer to be 
released shortly. At present, the 
advance information aval lable {3 that 
a new microprocessor sill de 
Incorporated into the unit - the 6503, 


Our research staff has been able to 
uncover a Ilst of new opcodes that 
distinguish the 6503 as a breakthrough 
in computer technology. 


The list 1s presented here for your 
information (and enjoyment). 


‘AD ADD GARBAGE 
BBL BRANCH ON BURNED OUT LIGHT 
BAH BRANCH AND HANG 

BLI BRANCH big LOOP pee 
BPB BRANCH ON PROCRAM BUT 

BPO BRANCH IF POWER OFF 

CPB CREATE PROGRAM BUC 

(CRN CONVERT TO ROMAN NUMERALS 
DAO DIVIDE ANO OVERFLOW 

ERS ERASE READ-ONLY STORAGE 
HCF HALT AND CATCH FIRE 

TAD ILLOGICAL AND 

TOR ILLOGICAL OR 

MOB MOVE AND DROP BITS 

Mu MULTIPLY WORK 

NBC SHOW TERRIBLE PROGRAMS 
PAS PRINT AND SMEAR 

RBT READ AND BREAK TAPE 

RPM READ PROGRAMMER'S MIND 
RRT RECORD AND RIP TAPE 

RSD READ AND SCRAMBLE DATA 
RWD REWIND DISK 

SRZ SUBTRACT AND RESET TO ZERO 
SSD SEEK AND SCRATCH DISK 

TP TEAR PAPER 

WED WRITE AND ERASE DATA 

WID WRITE INVALID OP CODE 

XIO EXECUTE INVALID OP CODE 
XO EXECUTE OPERATOR 

XP EXECUTE PROGRAMMER 


common ¢ 





AN APPLE MATRIX 





MATRIX PART 1 


OY MAX J. WAR 


Some forms of BASIC provide the matrix 
commands (MAT READ, MAT PRINT, MAT 
INPUT, etc,) to facilitate display and 
manipulation of tables of numbers. 
Though the MAT commands are 
unavallable in Apple Basic, there is a 
substitute. 





The term “matrix” {s used here to 
denote a two-dimensional array of 
numbers consisting of horizontal rows 
and vertical columns. A matrix Is a 
grid in which each of the elements 
(numbers) 1s glven a reserved space or 
cell in the computer's mesory. 





To accomplish this, the matrix 1s 
first dimensioned. Thus DIM A(12,12) 
allocates 144 cells in memory for the 
144 (12°12) cells in the matrix. 
(Actually since Apple begins 
dimensioning from zero the number of 
elements in the variable is 13*13, or 
169 - but who's counting?) 


Following {s a simple program using 
doubled digits Illustrating how a 
matrix can be constructed or read from 
data statements In Applesoft. For the 
sake of brevity the number of rows is 
here limited to 3. Try more at your 
computer. 


0 DIM A(12,12) 
10 DATA 10,20,60, 70,90, 11,68,42, 32 
20 DATA 77,41,66,19,20,91,72,72, 18 
30 DATA 36,24,11, 30,93, 46,66, 33,14 
40 DATA 98, 16,32 
50 FOR I=1 TO 3: REM INDEX LOOP FOR 


ROWS: 

60 FOR J=1 TO 10: REM INDEX LOOP FOR 
COLUMNS 

70 READ A(I,J): REM READS DATA FOR 
MATRIX 


RI: 
80 PRINT A(I,J)3 SPC( 2);: REM PRINTS 
AND FORMATS MATRIX ELEMENTS 


90 NEXT J 

TOONEXT I 

RUN 

10 20 60 70 90 11 88 42 32 77 
41 66 19 20 91 72 72 18 36 2% 
11 30 93 46 66 33 14 98 16 32 


When the matrix {3 on screen, 
c ns may be made in the 
lmediate mode. 

For Example: 

PRINT A(1,5)#A(3,10). 

With simple additions to the program 
all or selected matrix elements may be 
totaled, averaged, sorted, etc. 





Next month: 
Elements. 


MATRIX PART 2 


BY MAX J. NAREPE 


Mantpulating the Matrix 


This series of articles 1s designed to 
simulate various MAT(RIX) functions, 
statements which are used to simplify 
the manipulation of large groups of 
fusbers. 


Last month MATRIX or table formation 
was demonstrated with the use of 
FOR-NEXT loops and double subscripted 
variables (also called two dimensional 
arrays). This month we deal with 
arithmetic manipulation of a HATRIX. 
Reference 1s made to last month's 
program which developed a table 
consisting of 3 rows and 10 colums of 
numbers. The following subprograms 
should be added to it. 





1. SUM OF ALL MATRIX ELEMENTS 


120 T=: REM INITIALIZES THE TOTALER 
130 FOR 1=1 TO 3: REM LOOP FOR ROWS 
140 FOR J=1 TO 10:REM LOOP FOR COLUHNS 
150 T=T+A(I,J):REM TOTALS ELEMENTS 


160 PRINT: PRINT TAB(4);"SUM OF MAT 
ELEMENTS=";1 


2. AVERAGE OF ALL MATRIX ELEMENTS 


120 T=0:K=0::REM INIT TOTAL & COUNTER 

145 K=K+1:REM COUNTS @ OF ELEMENTS FOR 
AVERAGING 

190 PRINT:PRINT TAB(9);"AVERAGE OF 
ELEMENTS=";1/K 


3. SUM OF INDIVIDUAL ROWS & COLUMNS 


200 FOR I=1 TO 3:REM INDEX LOOPS 

210 FOR J=1 TO 10 

220 REM CALCULATION OF ROW & COLUMN 
TOTALS 

230 R(1)=R(L)+A(I, J) 

240 C(J)=C(J)+A(T, J) 

250 NEXT J 

260 NEXT I 

270 REM LOOPS FOR PRINTOUTS 

280 FOR I=1 TO 3 

290 PRINT TAB (1%);"SUM OF ROW 
aes Tg"="5R(T) 

300 NEXT I 

310 FOR J=1 TO 10 

320 PRINT TAB (14);"SUM OF COL 
8S" 555"="3C(J) 

330 NEXT J 





The terms "MATRIX" and "TABLE" can be 
used interchangeably. In subprogram 2 
line 145 the counter statement can 
also be expressed as K=I*J another 
form of iteration as the loop uncoils. 


Any component of a MATRIX - whether 
single elements or rows or columns - 
can be manipulated as can several 
trices. Try "PRINT R(1)+R(2)"5 
PRINT R(3)/10" and "PRINT C(2)+C(10)" 
or any combination required. 








More next month------- 


MATRIX PART 3 
CROSSFOOTING 


BY MAX J. MAREFE 


As defined by Logsdaon (Programming in 
Basic, 1977) it is the mathematical 
process of summing the corresponding 
numbers (elements) of two arrays In 
pairs, one number from each array. 
The sum of each paired number appears 
in a third array. Originally used in 
computer card processing, the term has 
been broadened to Include subtraction. 





In the previous articles on Matrix 
simulation, the technique of 
CROSSFOOTING was demonstrated without 
being identified as such. Here now Ls 
a short application with a paired 
array. 


Three service stations have each sold 
out their dally quota of two grades of 
gasoline (A&B). How many gallons has 
each outlet sold (C), and what 1s the 
grand total of company sales (T)? 


0 HOME : TsO : REM CLEARS SCREEN : 
INTITIALIZES TOTALER 

10 DIM A(3), B(3), C(3): REM RESERVES 
MEMORY SPACE FOR EACH ARRAY 

20 PRINT "REGULAR", "ETHYL","R+E SALE’ 
PRINT 

30 FOR X= 1 TO 3: REM MACHINE LOOP FOR 
READING DATA 

40 READ A(X),B(X): REM READS DATA 
(A-REGULAR, B-ETHYL ) 

50 C(X)=A(X)+B(X): REM CROSSFOOTING 

60 PRINT A(X) ,B(X),C(X) 

70 T=T+C(X): REM COMPUTES TOTAL SALES 





3 STATIONS 

80 NEXT 

90 PRINT + PRINT : TAB 10;"TOTAL FUEL 
SALES= ";T 

95 DATA 621.5,833.2,493.8, 1217.5, 701.8 





1317.6: REM FUEL SALES CAREFULLY 
ENTERED IN PROPER SEQUENCE 
A, B, A, B, ETC 


MATRIX PART 4 





BY MAX J. HA 


MATRIX statements, unavailable in 
APPLE BASIC, reduce the programming 
effort required to solve problems 
Involving one or two matrices (tables) 
by eliminating the need for 
nested-loops. Large clusters of data 
can be managed quickly with single MAT 
statements. As noted previously, 
several of these statements can be 
simulated within APPLE BASIC, and 
while the effort is more tedious, 
selected mathematical operations can 
be performed using nested-loops. In 
previous Issues, the MAT READ and MAT 
PRINT statements were simulated and a 
single matrix (table) generated. 

Several arithmetic operations were 
performed with its contents, both In 
the direct and indirect modes. Now, 
two small rectangular matrices, each 
composed of two rows and four columns 
of numbers, will be formed and 
arithmetic interactions between them 
illustrated. MAT statements Involving 
addition (or subtraction) and 
Atiplication by a constant will be 
simulated. 











Step 1 demonstrates formation of two 
(2x8) tables labeled MATRIX A & MATRIX 
B. Here again, the HAT READ & MAT 
PRINT statements are accommodated by 
use of nested-loops. 


0 CALL -936 

10 DIM A(2,4),8(2,4): REM 
DIMENSIONS EACH MATRIX 

‘50 PRINT TAB (15); "MATRIX A” 

60 FOR R=1 TO M: REM ROW LOOP: 
M22 


MATRIX PART 4 (CONT.) 


70 FOR C=1 TO Nz REM COLUMN LOOP: 
No 


80 READ A(R,C): REM FROM DATA 
STATEMENTS, 

90 PRINT A(R,C);SPC(8);: REM 
PRINTS AND FORMATS MATRIX 

100 NEXT C 

110 NEXT R 

120 PRINT TAB(15); "MATRIX B” 

130 FOR Rz1 TO M: REM (H=2) 

180 FOR C=1 TO N: REM (N=4) 

150 READ B(R,C): REM FROM DATA 
STATEMENTS. 

160 PRINT B(R,C) sSPC(8); 

170 NEXT C 

160 NEXT R 

500 DATA 10,20, 30,40, 50, 10,20, 30 

$10 DATA 11,13, 15,17, 19,21,23,25 


In step 2, a third MATRIX, C, will be 
formed by addition of A and B 
simulating MAT C2Ae8 





20 DIM (2,4) 

200 PRINT TAB(8); "MATRIX C = 
MATRICES AB" 

210 FOR R=1 TOM 

220 FOR C21 TON 

230 C(R,C)=A(R,C)+B(R,C)1 REM 
MATRIX ADDITION 

200 PRINT C(R,C);SPC(8)s 

250 NEXT C 

260 NEXT R 


In step 3, scalar multiplication is 
demonstrated. In this type of 
operation, each element of matrix may 
be multiplied by either a constant, a 
variable or an expression. This step 
1s an example of MAT D=(K)*A where K 
is a constant. 


30 DIM D(2,4) 

300 PRINT TAB(8); "MATRIX 
O=(K)*HATRIX A" 

310 FOR R=1 TOM 

320 FOR C=1 TO N 

330 D(R,C)=(K)*A(R,C): REM FOR 
EXAMPLE LET K=5 


The dimensions of the matrix on the 
left of the "equals" sign must be 
equal to or greater than those on the 
right side of the equation or else 
some of the elements may not appear; 
the shape of the new matrix may 
change, or more likely, the error sign 
will occur. Where the MAT capability 
exists, it Ls most useful and 
effective, but it is limited by its 
inability to add or subtract more than 
two matrices or to perform some other 
arithmetic. 





SCORE ONE FOR THE APPLE: with the 
procedures outlined, many matrices can 
be added, subtracted, divided, etc. 
The interested reader is invited to 
try these and other options. Note 
what occurs where HATRIX A is 
multiplied by MATRIX B, The resultant 
matrix 1s produced by the 
multiplication of EACH element of A by 
the CORRESPONDING element of B (I.e. 
C(1,1) = AC1,1) * BCT, 1), C(1,2) = 
A(1,2) * B(1,2) and so forth). Ina 
sense this {s a type of “scalar” 
multiplication where the multiplier 
varles from element to element. 
However, this is NOT true Matrix 
Multiplication in the language of 
computer sclence or matrix algebra, 
where the rows of one matrix are 
multiplied by the columns of the 
Second and not by the corresponding 
elements. 











FRE(X) FOR INT 


Here are a couple of quickle one-lines 
to Implement while waiting to decide 
how next to complicate your program. 


This first one gets you the remaining 
usable memory. It {3 equivalent to 
Applesoft 's FRE(X) function. 


PRINT PEEK (202) + PEEK (203) * 256 - 
PEEK (208) - PEEK (205) * 256 


This one gets you the space taken up 
by your program: 


PRINT PEEK (76) + PEEK (204) - PEEK 
(202) - PEEK(7%) + 256 * (PEEK (77) + 
PEEK (205) - PEEK (203) - PEEK (75)) 


The difference you get when you 
subtract the total of these two 
functions from the RAM capacity of 
your machine represents the work space 
used by the Interpreter. It should be 
2K (2048) bytes. 


Here's yet another program for 
determining the length of a basic 
program - except that this one is in 
machine language and is relocatable. 
As it Ls written, you "CALL 768" to 
get the length of the commands and 
statements you've used without the 
length of the variable table - that 
1s, you get HIMEM down to PP: 


300: 38 AS SC ES CA AA AS 4D ES CB 20 
1B ES 60 


AND that's it. 


WAIT CMD 


BY @. A. BALDWIN 


(0) 1970 
ALL RIGHTS 





Loitering inside the Apple System 
Monitor {s a subroutine called ‘WAIT’. 
It {s useful for creating timing 
delays inside your programs without 
the bother of writing special code. 
Delays of up to one-sixth of a second 
are possible, depending on the value 
that Is In the accumulator when WAIT 





is called. We can't control this 
val from a BASIC progr. but it 
turns out we don't have to! Timing 





delays from one second to several 
minutes can easily be invoked from 
either INTEGER or APPLESOFT BASIC. To 
do this we will resort to a subterfuge 
Involving both trickery and cheating. 


The trickery Ls possible because the 
accumulator is left at zero when WAIT 
returns to the program which called 
it. And a zero in the accumulator 
will create a delay of 162 
milliseconds if WAIT is called again. 
The cheating {s possible because BASIC 
doesn't mess with the accumulator in 
the following tight loop: 


CALL -856: NEXT I 


FOR I = 110 7: 


We don't know what {is In the 
accumulator the first time the call Is 
made to WAIT, so the delay aight be 
anywhere up to a sixth of a second. 
But the call leaves the accumlator at 
zero, and subsequent calls to WIT 
take 162 milliseconds each. So this 
line of BASIC will create a delay of 
about one second. By changing the 
Limit on the FOR loop from 7 to 31, 
get a delay of five seconds, and to 
370 gives a delay of one alnute, To 
calculate the proper limit, divide the 
desired delay in seconds by 0.162 and 
prune the result to the nearest 


Integer. 


For more precision, WAIT 
called using ASSEMBLY Language: 





st be 


LDA fran, nnn is a value between 0 
and 255 inclusive 
‘JSR SFCAB jcall WAIT 


The delay 1s a shaggy function of the 
value you put In the accumulator (A): 


Delay in milliseconds = (13 + 12.5% + 
2.5¢a%a) / 1023. 


The divisor 1s the frequency of the 
Apple clock in kilohertz, or in other 
ords, 1/1023 1s the length of one 
machine cycle In mflliseconds. The 
formula ts valid for accumulator 
values between 1 and 255. Oddly 
enough, 255 and zero both give the 
saximus delay posible. Here are a fev 
representative values: 





ACCUMULATOR: DELAY IN 
VALUE MILLISECONDS 
18 1,02 
88 20.01 
200 100.21 
255 162.08 


inute - call WAIT 





So don't delay a 
nowt! 


IAC 


Fred Wilkinson announces that he's 
trying to reach out to 
groups nationwide (and wi 
get together and communicate regarding 
the forthcoming formation of the 
International Apple Core. 








If you have questions concerning the 
International Apple Core's creation or 
status of current efforts to get ving 
please call Fred Wilkinson at 
(415)585-2280, of write to: 
International Apple Core 
P.0.Box 976 
Daly City, CA 99017 


Now is the time to get involved. 





$ARRAYS IN INT 


sy aim DOTY 


There 1s a simple way to get around 
the lack of string array capability in 
APPLE's Integer Basic. You can 
convert the character to a number and 
then pack two characters In one 
integer value. Consequently, an 
Integer array dimensioned as A(1000) 
can hold up to 2000 characters. 





The ASC Function will return a number 
value for a character. This value 
must be offset since these values are 
too large to use. I used an offset of 
-159. This made the character "blank" 
equal to 1. Consequently, to 
Inttiallze your integer array you 
should set each element equal to 101. 

Why 101 will become obvious shortly (I 


hope). 


Two characters are stored in each 
Integer element. The following 
example will demonstrate how this Is 








done. Let's use * as the two 
characters to be packed Into A(1). 
LESS 159 = 38. 
LESS 159 = 53. 





Multiply the left character value by 
100 and add the result to the right 
character value. 


** 100 + 53 = 3453 
Therefore A(1) = 3453 


However, getting the characters back 
from their integer form is not quite 
a3 easy since the inverse of ASC does 
not exist in integer basic on the 
APPLE. Here is the needed routines 


First you must break apart the two 
character values which are combined in 
the Integer array element. Let's use 
the same value as in the example: 


AC) = 3453 
LEFT CHAR VALUE = (A(1)/100)+159 


= 193 
RIGHT CHAR VALUF- A(1) MOD 100 + 159 
= 212 


Now all we have to do Is convert these 
values to their ASCII equivalent 
characters. 


You use a string variable which must 
be the first variable defined in the 
Program. Consequently, you know 
exactly where in memory this variable 
resides. To convert the numeric value 
to a character, Just POKE its value 
into location 2053. For example, if 
AS was the first variable defined, the 
following example would work: 


POKE 2053, 193 
WOWAS 2 A 








This 3 to work very well and 
solves a frustrating problem. 


PUT CHARACTER 
IN PROGRAMS 


BY BRUCE TOeNMAZZINI 


Apple Basic CHRS Subroutine Function 


1 CHS = CHR + 128 * (CHR<128) 

2 LC1 = PEEK (224): LC2 = PEEK (225) - 
(LC1>243): POKE 79 + LC1 - 256 © 
(Le2>127) + (LC2 - 255 * (LC2>127)) 
* 256,CHS: CHRS = "A": RETURN 


Apple Basic CHRS Matrix Function 


1 DIM CHRS(126): FOR CHR = 1 TO 128: 
CHRS = CHR + 128 © (CHR < 128) 

2 LC1 = PEEK (224): LC2 = PEEK (225) - 
LC1>283): POKE 8& + LCI - 256 © (LCZ 
>127) + (LC2 - 255 © (LC2>127)) * 
256,CHS: CHRS (CHR) = "A": NEXT CHR 


Above are two character strin 
functions for Apple Basic. The CHR: 
Subroutine function is ideal where few 
characters need be called; the CHRS 
Matrix function {s great for many 
characters, but takes quite a long 
time to Initialize (approx. 1.5 
seconds). 


Let's say you wanted to print the 
following during your program: “How 
do you say “Apple” in French?". Here 
is a sample program for the CHRS 
Subroutine function: 


10 CHR =34: COSUB 1: PRINT “HOW 00 YOU 
SAY"; CHRS; "APPLE" ;CHRS;"IN FRENCH?" 


To do the same thing using the CHRS 
Matrix function, you would do the 
following, having ALREADY executed 
lines 1 and 2 to Initialize the CHRS 
matrix: 


10 PRINT "HOW DO YOU SAY";CHRS(34,34) 
s"APPLE" ; CHRS (34, 34) ;"IN FRENCH?" 


It 1s important to note that the 
Subroutine function is, in fact, @ 
subroutine, whereas the Matrix 
function 1s not. Because the matrix 
is initialized once and the program 
Ilnes are not called again (because 
the data exists in the variable table) 
it {s not necessary to separate the 
Lines into a subroutine. 


VAL (X$) USE 


One use for the VAL(XS) function In 
Integer Basic: 


10 V=0: FOR Vi=1 TO LEN (VS): VeV+ 
(ASC (VS(VL,VL)) - 176)* 10LEN 
(VS)) - Wer NEXT Vir RETURN 


Going into the subroutine, VS will be 
a number, for example, VS = "1234" - 
coming out of the subroutine, V will 
equal 1234. One use for this ts to 
input using a string function and 
later convert, so that if the user 
hits return with no input, you can 
give him or her additional 
Instructions, or Just go on with the 
program, rather than getting the 
friendly "2" 






INTEGERS 
TIMES 
A FRACTION 


BY PAUL WYMAN 


There are numerous business 
applications where integer BASIC 
addition and subtraction are quite 
satisfactory.... until you have to 
multiply by a fraction or percentage. 
Preparations of income tax returns is 
@ relevant example. While Applesoft 

n handle the fractions Lt chews up 
vital memory data space at more than 
twice the rate of integer BASIC. 
Furthermore, most calculations could 
be done as integer arithmetic if with 
a few handy floating point functions 
in BASIC. The following function ts 
useful only for cases requiring 
multiplication of a whole number times 
a decimal fraction. It 1s not 
suitable for a chain of successive 
multiplications due to rapid 
accumulation of roundable errors. 
Given these caveats, the reader should 
be pleased to note that numerous 
business calculations are relevant 
such as worksheet spreads by 
percentages, financial ratio analysis, 
cost variance analysis, price markups, 
tax calculations, interpolations in 
rate tables, etc. 








10 GOTO 1000 
20 REM BASIC SUBROUTINE FOR 
MULTIPLYING TIME WHOLE NUMBERS 
25 IN = 0: DE = 0: THO = 1000 
30 FOR Z1 = 1 TO 3: 22 = 1018 
23 = 22/10 





AO Z& = THO/Z3: 25 = (PCT MOD 22)/23 
50 IN = IN + 25 * (MUH/Z4) 
60 DE = DE + (25 * (NUH MOD Z4) © 23) 
70 NEXT Z1: IN = IN + DE/THO 
80 DE = DE - (DE/THO) * THO 
82 RETURN 
85 PCT = 125: REM PCT = 12.5 
88 NUH = 5000 
90 coSUB 20 
95 PRINT NUM;"#"sPCT/1015"."5 (PCT 
HOD 10); "="51N5".";DE 
98 END 
ine AuoiT 





MY COMPUTER MAY BE OMALL 


BUT IT DOEON'T MAKE 


MISTAKES EITHER 


PASCAL WHO? 


For those of you that are wondering 
"Pascal who?", Pascal was a French 
mathematician and also Is a very nice 
modern programming language. A direct 
descendant of ALGOL 60, Pascal was 
designed by Niklaus Wirth In the early 
70's, It ts a clean and elegant 
language featuring a full set of 
structured flow of control constructs 
and superb data structuring 
capabilities. It {s a "strongly 
typed" language which means that the 
compiler can catch most of your errors 
for you. From its origins in academia 
it Is now enjoying increasing 
popularity {n the business and 
hobbyist sectors as well. 


The folks responsible for the APPLE 
implementation of Pascal (and many 
others, too) are the Institute for 
Information Systems at UC San Diego 
(led by Ken Bowles), a bunch of 
proverbial "good guys" if there ever 
was one. They are dedicated to 
spreading good programming languages 
throughout the real world at minimum 
cost. They are very involved in 
computer-aided instruction, too, so 
when you obtain your Pascal system you 
will also get a wonderful program that 
will teach you the language and how to 
use it. 





COPYING THE 
BASICS DISK 


Fellow Core member Phil Bernheim 
relates that his new Pascal/Language 
System gave hia fits when he tried to 
copy the ‘Basics’ Disk with a ‘Basic’ 
copy program. He called Apple's hot 
Line and got the cryptic answer: 

The machine boots up in Pascal. The 
program on the ‘Basics’ disk ts a 
Pascal program and must be copied 
using the'F'(filer) portion of your 
Pascal System. 





Any attempt to copy the ‘Basics’ disk 
from Basic will simply be futile. 
(Did that sound Like a chal lenge?--of 
course {t was. Some Core member has 
probably already found a sneaky way.) 


Our thanks to Phil--his discovery will 
certainly aid another member in the 
near future, and doubtless other 
little tid-bits are Just lurking 
around the corner waiting to be 
‘flushed’ into the open. Send the 
Cider Press Staff your latest 
suggestions, tips, traps, etc., and 
we'll get the whole thing out to the 
membership. 


PASCAL 
SINGLE DRIVE 


If you've recently bought Apple's 
Language System and haven't gotten up 
and running yet--keep reading. It has 
probably occurred to you that every 
place you saw Pascal being 
demonstrated was done on a ‘two drive’ 
system. 'NO SWEAT’ you've heard when 
asked if it works with the one drive 
you have at home. (If it's so easy, 
why don't you have it running?) 








In mid-October I visited no less than 
five Apple selling shops, and in all 
five two drives were in use for each 
Pascal demo--in no cases were the 
staff and innocent bystanders able to 
run the GRAFDEHO program after 
unplugging one of the drives. It 
occurred to me that possibly the 
Reference Manual would clear this up, 
but among the fantastic information 
there was nothing that helped. 


Cheer up. I know of two solutions; 
the first being to fork over another 
five hundred dollars and flaunt a 
second drive in your neighbor's face. 
This may place your body out in the 
street when the wife gets the 
checkbook back. 


For the second method read on: 


I will assume that the directions for 
Installation of the card and chips 
were properly followed. Read the 
chapters in the Reference Manual 
covering the Filer and the Editor. 
Section 6.2 on Starting up an Apple 
Pascal System that has only one drive 
must be understood. The most 
important thing to understand Is that 
with one drive you must switch 
diskettes 20 times to make a copy. 
(This tends to ‘drive’ a person 
towards solution number 1, above). Go 
back to your trusting computer store 
and use their two drives to ‘fast 
copy’ an APPLE3, and several APPLEO's 
(reason later). 


Now It's time to get a sample program, 
30 power up per section 6.2.5. Start 
with APPLE3 in your drive, power up, 
go to APPLEO, press RESET, and 
‘WELCOME ' message tells all that you 
can read Instructions. 

Now we go to the 'F'(filer) for some 
preliminary play. Go on ahead and 
type 'F'. Prompt line tells story of 
success. Make sure that SYSTEM.WRK 
file is gone elsewhere. (If you 
wanted that file It was transferred 
earlier anyway.) Type 'N' (for new) 
and prompt says ‘THROW AWAY CURRENT 


FILE?'. Type 'Y' and ‘WORKFILE 
CLEARED’ tells us that the dirty deed 
is done. 


Let's take a look at the goodies on 
APPLE3, by placing APPLE3 In the 
drive, and typing 'L’ (for List). 
Prompt then says ‘DIR LISTING OF?* 
Type ‘#' <RET> 

“APPLE 3: 

SYSTEM.APPLE 32 26-JUL-79 
FORMATTER.CODE 4 4-MAY-79 
FORMATTER.DATA 6 22-JUN-79 











The program we want Is 
'GRAFDEMO.TEXT.* Type <RET> get all 
the things off the screen except the 
command proepts. Typing ‘T' produces 
‘TRANSFER?'. Respond with 
*APPLE3:GRAFDEMO.TEXT* <RET>. ‘TO 
WHERE? , answer with 
*APPLEO: SYSTEM. WRK. TEXT’ <RET>, The 
computer will now read the requested 
Program, and will prompt ‘PUT IN 
APPLEO: TYPE <SPACE> TO CONTINUE’ 

Do it! 

If you hadn't cleared the old 
SYSTEM.WRK file the system gives one 
last chance to save last night's 
masterpiece by prompting with ‘REMOVE 




















OLD APPLEO:SYSTEM.WRK.TEXT?'. If this 
occurs type 'Y¥', and get 
‘APPLE 3:CRAFDEMO.TEXT'. If you had 


done everything correctly your proapt 





now says '~->APPLEO:SYSTEM.WRK. TEXT". 
Program we want 1s now where we want 
it. 


Get out of (filer) by typing 'Q'. Get 
Into (editor) with ‘E’. Prompt says 
‘EDIT... 

NO WORKFILE IS PRESENT.FILE?(..' 

Type *SYSTEM.WRK' <RET>, 

Now it Is possible to look over the 
program at leisure, and in great 
detail. This example was picked for 
the author BILL ATKINSON's special 
knowledge of the Apple II's graphic 
capabilities. Bill puts the Apple 
through its paces. 





Remember the commands in the Editor? 
For some special features type '9P’ 
and go to PROCEDURE STUFF, which 
bitmaps the butterfly demo. See If 
you can figure it out (If you can 
write Lt up we'll put the answer in 
print). 


Oh, we can't go this far and give uw. 
Type 'Q' (to Quit the Editor). If 
you've made changes be sure to 
‘Update’ otherwise type ‘E' (to Exit) 








the Editor. Type ‘R’ (to Run). Apple 
Prompts with ‘COMPILING + ‘COMPILE 
WHAT TEXT’ Type ‘SYSTEM.WRK’ <RET>. 


Apple prompts ‘TO WHAT CODEFILE?'. 
Type "SYSTEM. WRK'<RET>. 

The Compiler will now have a field 
day, and will eventually run the 
program GRAFDEMO. 


So why did we go such a long way to do 
so llttle? It would have been easter 
to simply place GRAFDEMO upon APPLEO: 
then run It. You would also have 
probably put together a program using 
the Editor which would have crashed 
due to a lack of avallable storage on 
APPLEO. Removing old programs from 
APPLEO will certainly become a way of 
life. 

This is why I recommended that several 
copies of APPLEO should be made. We 
can label this diskette as 
APPLEO:GRAFDEMO. The program can be 
readily shown by booting up the system 
and Running by typing 'R'. I don't 
know of any other way to keep 3 or & 
Programs around that can be quickly 
run. I keep a half dozen diskettes 
with different programs around. 
(Surely some one out there knows @ 
better way?). Similar games can be 
Played to get the Assembler up and 
Tunning, but that's the subject of 
anybody else's article. APPLE} also 
contains program DISKIO which will 
help with disk use and setting up 
files in Pascal. 











(eeOL OFEVE (DONT) 


As a practical matter I've thrown the 
"PASCAL User Manual and Report’ 
(supplied with System) into a dark ® 
corner, and in its place I recommend 

*A Practical Introduction to PASCAL* t 
by I.R. Wilson (no relation), 
available at Computerlands. The 
language is explained in better 
detail, and seems to put more emphasis 
on examples. There is certainly 
nothing wrong with the supplied 
‘Problem Solving Using PASCAL', and 
the ‘Apple Pascal Reference Manual’ 1s 
fantastic stuff, but much more is 
needed. 











In conclusion, Apple Pascal with a 
single drive Is Limiting, but still 
workable. With two drives the system 
1s not only workable, it's a dream, so 
If you're Into ‘REAL’ systems, Apple 
Computer will be glad to sell you 
another drive! 


PASCAL 
LOWER CASE 


WITH DAN PAYMAR‘S CHIP 


BY CRAIG VAUGHAN 


Here 1s a program to modify BIOS to 
work with Dan Paymar's lower case 
adapter. It has not been prepared to 
domload. 


ENJOY! 
Craig 


(* PROGRAM TO MODIFY THE BIOS MODULES *) 

(* TO WORK WITH DAN PAYMAR'S LOWER CASE ADAPTER *) 
(* DEVELOPED AND TESTED BY CRAIG VAUGHAN *) 

(* COPYRIGHT WAIVED *) 


PROGRAM UPDATE ; 
VAR 


CODE 

BLT, (* @ OF BLKS TRANSFERRED *) 

BLN: INTEGER; (* BLOCK #@ TO READ <4> *) 
S: FILE; (* FILE ID *) 

SRC : STRING; (* FILENAME ©) 


BLK: PACKED ARRAY(O..511) OF 0..255; (* BLOCK TO HOLD BIOS 
is) 


BEGIN 
SRC: ="SYSTEM.APPLE"; (* FILE CONTAINING BIOS *) 
RESET (S,SRC); (* OPEN IT *) 


BLN := 4; (* READ BLOCK #& *) 
BLT := BLOCKREAD(S,BLK,1,BLN); (* READ IT *) 


BLK(232) z= 234; (* NOP CASE CONVERSION *) 
‘BLK (233) Es i tad sd be: 
BLK(235) := 127; (* CHANGE CHARACTER MASK *) 





BLT := BLOCKREAD(S,BLK,I,BLN); (® WRITE IT BACK OUT *) 
CLOSE (S,LOCK); (* CLOSE AND LOCK IT *) 
ENO. (© ALL DONE *) 








FORTH 


Did you know that two of your Apple 
Core members, John Draper and Mathew 
McIntosh, are marketing one of the 
fastest languages that will run on the 
Apple? 


FORTH 1s a relatively unknown and yet 
powerful programming language based on 
a dictionary structure. It allows the 
programmer to "define" new words into 
the dictionary using previously 
defined words to accomplish any 
programming task. It's possible to 
have more than one “program” in RAM at 
the same time, and one only needs to 
type in its name to execute it. 





FORTH is 20 times faster than BASIC 
and is a disk-based system using very 
simple disk read/write commands. The 
stem features include: 





1. Powerful screen editor 

2. Decompiler-used to generate to some 
extent a source listing of a 
precompiled FORTH word. 

3. Utility package-used to aid the 
user in fast software development. 

4, Self Documentation-bullt into the 
system to allow an inexperienced 
programmer to use it. 





If interested, contact: 


CAP'N. SOFTWARE 
P.0. BOX 575 
SAN FRANCISCO, CA 94101 





MACHINE * 


DEFOG ILLEGAL 
CHARACTERS 


BY @ERAY VROOMMAN 


Illegal characters are those handy 
Little program commands you would Like 
the Apple's Integer BASIC Interpreter 
to accept upon entry without something 
lke a ‘SYNTAX ERROR' or '>32767 
ERROR’ response. 


The Apple's Integer interpreter will 
reject ne numbers greater than 32767 
and the commands listed in Table 1. 





RERBASILRSES 





The ability to trick your Apple into 
accepting these illegal commands lies 
In following this sequence: 


(1) Determine the program location 
for the line/command you wish to 
enter. (Beginning, middle, or end). 


(2) Find the existing program line to 
change. 

OR, 

(3) Enter a dummy line, if necessary. 
(4) Enter the monitor. 

(5) List the Line in the monitor. 


(6) Change the command/line number 
hex code. 


(7) Return to BASIC, list and test 
the command. 


Here's an example of entering HIMEM in 
@ program: 


LIST 
10 PRINT "LINE ONE’ 
20 PRINT "LINE Two’ 
30 END 


HIMEH should go at the beginning of a 
program. Monitor locations CA.CB list 
the beginning of an Integer program. 
A dummy Line should be entered like 
this 


>S PRINT 16384 


Enter the monitor with the command 
*CALL-151'. Type In the hex location, 
high order bit first like this: 
BFDAL. The 'L' 1s added to give you a 
40 address memory display like this: 


BFDA- 08 +28 BYTES IN LINE 
BFDB- 05 00 ::LINE NUMBER 5 LOW 





BYTE FIRST 
BFOO- 62 PRINT TOKEN 
BFDE- B1 OO ::NUMBER FOLLOWS 
BFEO- 80 = ::00 40 HEX = 16368 
LOW BYTE FIRST 
BFEI- OF ttEND OF LINE TOKEN 


Change the print token '62' to the 
HIMEM: token '10' by entering 'BFOO: 
10 and list the memory again with 
BFDAL to check that the token has 
changed. Re-enter BASIC with a CNTL-C 
and List and run the program 


Some notes: The memory locations 
above have been given for a 48K 
machine without DOS. Notice that the 
program has been relocated to 3F0S' 
after running. Locating a line in the 
middle of a program Is a little too 
tricky to explain here. Ask someone 
from one of the stores how to do it. 
These illegal creative programming 
aids are far too many to cover in this 
article. Micro Magazine has a good 
article in its Hay 1979 issue to help 
understand the BASIC token system. 
Good Luck! ! 








This Little program should help expand 
your knowledge of text Page 2. 


>LOMEM : 3072 

>TEXT 

>LIST 

10 POKE -16299,0:REM GO TO PACE 2 
20 REM ROUTINE FOR CLEARING THE 


HASH 

30 REM WHILE LETTING YOU WATCH 
40 FOR X=2048 TO 3071 

50 POKE X,160 

60 FOR I=1 TO 100:NEXT I 

70 NEXT X 

80 REM ROUTINE TO PRINT TO PACE 2 
90 VTAB 1 

100 POKE 41,PEEK (41)+% 

110 PRINT ‘THIS IS TEXT PAGE 2 
120 REM PRINTING WITHOUT SCROLLING 
130 FOR Y=2 TO 23 

140 VTAB Y 

150 POKE 41,PEEK(41)+4 

160 PRINT ‘LINE';* ‘+¥ 

170 NEXT Y 

180 VTAB 23 

190 POKE 41,PEEK(81)+% 

200 PRINT TAB(10)'TYPE TEXT TO 

RETURN’ 

999 END 





=-LINE 50: 
token for 
blank in each screen location. It 
works with Applesoft as well. 


The #160 is the Integer 
‘space’. This prints a 


=-LINE 100 & 150: This POKE,PEEK 
combo is Andy's solution to printing 
on Page 2. 


=-LINE 90 & 140: Since Page 2 doesn't 
scroll like Page 1, VTAB's are 
necessary to position each line. 

a4 


LANGUAGE 


=-The LOHEM: 3072 1s necessary to move 
the Integer variable storage above the 
Page 2 area so you can write to It. 


SETTING 
REGISTERS 


BY JOHM ARKLEY 


A CALL Instruction in BASIC gets you 
to a machine language subroutine, but 
the various registers In the 6502 
processor are up to fate - here's hor 
to set thea, 





Any machine program may be called by 
POKING the values Into the addresses 
shown below & the program address Into 
PC and PC+1 (low order first) and then 
enter It via a CALL. This Is the sase 
as 2 GO command In monitor aode. 





The following program desonstrates 
this by using the monitor subroutine 
PRBYTE that prints the A register a 
two hex bytes at the next position 
the screen. 


Your subroutine must be sure that 
decimal mode 1s off upon return to 
BASIC else it will blow up by golng 
Into a loop printing on the screen and 
beeping. This bit of the P register 


may be cleared before doing the CAL 
by poking P with a zero or the desired 
value for the P register insuring that 
bit 3 Is off. 





IT MEANING 

7 Negative result 
6 Overflow Bit 

5 Unused 

& Decimal mode on 
3. Break Inst 

2 Interrupt disable 
1 Zero result bit 
O Carry bit 


PROGRAH 
100 Ax69:Xe70r 2712 Pel? 


200 PC=56: G0= -327 
300 REM APPLESOFT GO = 65209 
350 REM MONITOR ADRS = SFEB? 


300 POKE PC + 1,253 


HOME 

700 FOR L=0 10 15 
750 FOR 1=0 TO 15 
800 val * 16 +1 
820 POKE A,V 

830 POKE P,0 

880 CALL GO 
850 NEXT: 
900 END 


PRINT: NEXT 


SOUNDS & 








SOUND AND MUSIC 


METRONOME 


BY Tom KOTOWSK 


Here 1s a quickie I wrote for » 
daughter who needed a metronome for 
music class. (I have an Apple and 
don't need to buy one). 


10 CALL -936 

20 X=PDL (1) 

30 FOR I=1 to X 

40 PRINT X 

50 NEXT I 

60 PRINT * ": REM CTRL G WITHIN QUOTES 
70 GOTO 20 








BETTER TONE 


BY PAUL WYMAN 


The subroutine on page 45 of the red 
manual 1s one of the simplest ways to 
generate a "musical" note on the 
APPLE. However, the duration of each 
note Is limited by the fact that only 
one byte is allotted for the 
"duration" variable. You will 
probably find the maximum durat lon 
inadequate for some notes If you are 
reproducing a medium or slow tempo 
song. The typical way to overcome 
this ts to use a loop. However, you 
will find that a loop fails to produce 
a continuous tone, and that the loop 
timing 1s often not the same as your 
song's meter. 





A better but equally simple tone 
routine is on page 58 of your red 
manual. It Ls the routine In the 
Color Sketch program. Lines 5 and 10 
are the music program. Line 85 shows 
how to access It. You can use any 
vartable names. Location 0 {s for the 
pitch; locations 1 and 24 are for the 
duration. Use of the MOO funct lon 
overcomes the limitation of the 
earlier program. 





The following routine can be used with 
the routine on page 45 of the old 
Apple Il reference manual (known 
the Red Book). It will compute and 
store a scale of 48 notes and assures 
correct pitch for all 48 notes. 





10 DIM N(89): N(1) = 256 

20 FOR I = 1 TO 48: N(I) = N(I+1) © 
100/106 

30 R=N(I-1) * 100-N(I) * 106 

‘40 REM TAKES CARE OF ROUND OFF ERR 

50 IF R>SO THEN N(I) = N(I)e1: NEXT I 

60 N(1) = 255: RETURN 

70 REM USE THIS ROUTINE IN YOUR 
PROGRAM BY SELECTING A NOTE NUMBER 
FROM 1 TO 48 

80 REM AND THEN: P=N(P1): POKE 0,P: 
POKE 1,D; CALL 2 

90 REM P12NOTE 1 TO 48; D = DURATION 
FOR NOTE 


ALF MUSIC 


Anyone out there into music? Want to 
do it with ALF MUSIC BOARDS? Want to 
know more about them and what to do 
with them? So does Dave. He has 
three boards, hardware tempo control 
and an "Apple II". Dave has 
expertmented with 
envelopes-subrout ines-sound effects, 
etc., and wants to get together with 
other ‘computer musicians’. If 
interested, call Dave days, phone 
(415)992-9051, 








BETTER SOUNDS 


BY JAMES HOCKEMHULL 


Any Apple sound routine that works by 
toggling the speaker on and off can be 
made more versatile by toggling the 
cassette-out Jack instead. Via a 
patch cord, the sound then can be run 
from the Jack to an amplifier where 
its quality and volume will be much 
improved. 


Here's an easy way to move the 
Programmer's Aid MUSIC routine out of 
ROM into a handy location at the 
bottom of user memory, and modify it 
to play through the cassette-out jack: 


1. Move the Programmer's Ald routine 
to address 2088 ($800 hex; LOMEH) 
using the monitor's HOVE function. In 
the monitor, type 


* 800<D717.07FBM (return) 


$0717 and SO7FB are the starting and 
ending addresses of the Programmer's 
Ald HUSIC routine. M is the MOVE 
command that transfers the routine to 
the hex addresses beginning at $800. 
(See the Reference Manual, page 68.) 


2. To make sure the move has been 
successful, type 


* B00L (return) 


This will disassemble and list the 
routine. It should duplicate the 
listing in the manual except, of 
course, for the addresses. Typing * L 
(return) will continue the listing. 
The last byte of data should occupy 
address $8&4. 


3. Any LOAD or STORE instruction to 
address $C030 will toggle the speaker. 
Similar Instructions to location $C020 
will toggle the cassette out Jack. To 
change the one to the other, type 


* 806:20 (return) 
* 620:20 (return) 


Check it out with another * 800L 
(return). The functional changes have 

made. But now it 1s necessary to 
change all of the absolute branch 
addresses in the program. They're 
still referring to locations back in 
the ROM chip where they came from. 





4. Perhaps this is a good time to 
call on the monitor's aini-asseabler. 
Still in the monitor mode, type 


* F666c 


The bell will ring and a "!" proapt 
will appear. Type in the following 
addresses and instructions. Don't 
forget the colons; don't forget to 
press “return” after each entry. 


600: IMP 0637 
612: MP 0615 
616: MP 0618 


! 
! 
! 
! 
! 
! 
! 
' 
' 
! 





The move 1s complete and the routine 
1s ready to be used In Its new 
location. Played through an amplifier 
It will sound a great deal richer than 
through Apple's 2" speaker. Save the 
routine on disk or tape (* 800. 6&4) 
for application in future prograss. 


To use the relocated MUSIC routine, BE 
SURE TO SET LOMEM: 2376 to keep the 
program variables from overeriting the 
routine. There Ls a sneaky “Illegal” 
way to do this with a deferred comand 
from integer BASIC, but that’s another 
story. 





Beyond setting LOMEM, simply use It as 
you would the normal Programmer's Ald 
Program. TIMBRE, TIME, and PITCH keep 
thelr same addresses. Just assign 
MUSIC = 2048 rather than -10873. 


(Two tag-end notes: 1) I'm sure the 
RELOCATE program could handle this 
Just fine, but so far I've not had the 
energy to weave through the 
intricacles of its source blocks, 
destination blocks, code and data 
segments, and so forth. 2) Resist the 
temptation to move the routine into 
page 3 ($300-S3FF). The Programmer's 
Ald HIRES program uses some addresses 
there.) 


TONE FOR FP 


@Y CHARLES SULLIVAN 


If you have tried to use the “Staple 
Tone Subroutine" (pages 93-85 In the 
Red APPLE II Reference Hanual) with 
Applesoft Basic Instead of Integer 
Basic, you have discovered that it 
won't work. This one will. 


The use of this one is exactly the 
Same as the one described In the 
Reference Manual except the pitch (P) 
and duration (D) are passed in mesory 
locations 768 and 769 (decimal), 
respectively. 


To implement, follow the directions In 
the Manual on pages &3 and && and 
substitute the following on page §5. 


TONE FOR FP (CONT.) 





32000 POKE 770,173: POKE 771, 
POKE 772,192: POKE 773,136: 
POKE 774,208: POKE 775,5 
POKE 776,206: POKE 77,1: 
POKE 778,3: POKE 779,240 





32005 POKE 780,9: POKE 781,202: 
POKE 782,208: POKE 783,245: 
POKE 784,178: POKE 785,0: 
POKE 786,3: POKE 787, 7 
POKE 788,2: POKE 789, 3: 
POKE 790,96: RETURN 


BASIC "POKES" 


25 POKE 768,P: POKE 769,0: 
CALL 770: RETURN 





Figure 2. 


Figure 3. GOSUB 


DTOA&ATOD 


Y PAT CAFPREY 


Recently I got fascinated with the 1/0 
game port in the Apple. I built a 
wire extension cable and brought the 
port out of the Apple to my workbench. 
Then I proceeded to make a set of 
Light ewltting diodes (LEDs) turn on 
and off, pulse and even to display 
binary counts. 


The very interesting results of that 
exploration were worth the trouble. I 
highly recommend it if you have the 
Interest and are willing to buy the 
few IC sockets and wires necessary. 

Mo external power supply was required, 
although some care aust be taken not 
to draw too much current. 





During this period I got hold of a 
copy of the Apple Organ. Again, 
fascination. The sounds produced by 
this program are more realistic than 
what I had heard before on the Apple. 
Normally the Apple music has a 
"brassy" tone because It is all 
created out of square waves. What the 
Apple Organ does Is to use a DIGITAL - 
TO - ANALOG converter to shape the 

veforms from square waves Into sine 
waves. The Apple Organ includes 
simple, clear instructions for 
bullding the D-to-A converter with 
four resistors, some wire and just the 
game 1/0 socket . 





I searched through my pile of 
resistors and did not find the values 
Specified. I made up some from what I 
had. The results were adequate, about 
30 percent distortion of the 
"aveshapes produced with the actual 
‘Mple Organ resistor values. 


Drawing A shows a normal square wave, 
8 normal sine waves, C a "ladder" of 
voltages and D an image of a single 
reconstructed sine wave. The fact is 
that the components average the ladder 
voltages and approximate a sine wave. 

At the machine language rate of the 
Apple Organ there Is plenty of time to 
construct up to 20,000 waveshapes per 
Second which {s Just about the upper 
Fange of human hearing. There is even 
time left over to select tones, 
timbre, and other musical attributes. 


acd 
o 


So much for the background. Of what 
use, you ask? Well, you don't need to 
change voltage levels 20,000 times a 
second. The same thing may be done at 
Intervals of one second or one day. 

‘And, of course, you may stop and hold 
the rise and fall of the output 
voltage at any of the ladder levels. 

You acquire the ability to control the 
outside world in more than a simple 
on-off fashion. What you do with that 
control is a matter of need, ingenuity 
and time. 





What I have done 1s to provide a 
program which does the functions 
necessary to make the voltages rise 
and fall at predictable rates. You 
may try such applications as seem 
Interesting (model train speed 
control), necessary (stepper motors 
for your solar heater) or just 
instructive. 


There 1s a machine language component 
to the program. 1 have commented on 
it as best I can and hope it is clear 
to you how it does what It does. 


Here is the resistor schematic I used. 


ANS ANZ AML aN. 
° O) ° 
Wn nn 


All resistor values are 1K ohm. 
MACHINE LANGUAGE COMPONENT 


This entire subroutine simply moves 
the least significant bit of a byte 


and stores a 1 or 0, depending on the 
contents of the CARRY Flac, fato the 


location $01. In the BASIC program 
the "BITCHANGE™ routine PEEKs the 
contents of $01 back out. 


a7 


Holds number to 
be converted 
Holds resulting 
"1" or "0" 

Shift routine 
begins by clear- 
Ing CARRY FLAG 
Rotate the con- 
tents of location 
$00 to the right 
CARRY FLAG holds 
contents of LSB. 
Branch if CARRY 
FLAG set, to SOC 
to process a 1 
Else load a 0 and 
store it at $01, 
and return to the 
calling programs 
CARRY FLAG was set 
30, load a 1 and 
store {t in $01, 


0001- 


0002-18 ac 


0003-66 00 ROR $00 


0005-B0 05 BCS $05 


0007-A9 00 LDA #00 
0009-85 01 STA $01 
0008-60 RTS 


000C-A9 01 LDA #01 





QO0E-85 01 STA $01 


0010-60 RTS and then go back 
to the calling PCH 
D/A CONVERTER 


© DRIVER=100: WAIT=299: BITTEST=500: 
A=1: BITCHANGE=520: SHIFT=2 
1 PRINT "BLOAD D/A.BIN.ASO.LS10": 
REM LOAD MACHINE LANGUAGE ROUTINE 
2 POKE 16,6 * 16: REM THIS IS 
REPLACED IF YOU HAVE NO DISK BY 
16 POKE STATEMENTS 
6 REM THE "SWITCHES" FOR THE OUTPUTS 
IN THE 1/0 PORT 
10 DIM OFF(3): X=-16296: FOR 120 TO 3 
: OFF(I)=X: X=Xe2: NEXT 1 
20 DIM ON(3): FOR I=0 TO 3: ON(I)=OFF 
(1)+1: NEXT T 
25 REM INITIALIZE SWITCHES "OFF" 
3 FOR I=0 TO 3: POKE OFF(I),0 = 
NEXT I 
90 REM THIS IS THE UP-DOWN DRIVER 
100 FOR NUH=0 TO 15 
110 GOSUB BITTEST 
111 VTAB 21: TAB 20: PRINT NUM;" = 
115 GOSUB WAIT 
120 NEXT NUM 
130 GOSUB WAIT 
132 GOSUB WAIT 
140 FOR NUH: TO 1 STEP -1 
141 VTAB 21: TAB 20: PRINT NUM;" e 
150 GOSUB BITTEST 
160 GOSUB WAIT 
170 NEXT NUM 
180 GOTO DRIVER 
299 REM WAIT-CHANGE, HERE'S WHERE YOU 
CHANGE RATE OR JUST STAY AS YOU 
ARE 


300 IF PEEK (-16364) > 127 THEN 360 

320 POKE -16368,0 

350 FOR N=1 TO A: NEXT N: RETURN 

360 POKE -16368,0: INPUT "ENTER NEW 
RATE (0-255)",A: GOTO 350 

500 REM OUTPUT TO I/O PORT 

501 POKE 0,NUM 

501 REM "NUM" HOLDS DIGITAL NUMBER TO 
CONVERT 


505 FOR O=3 TO 0 STEP -1 

510 CALL SHIFT: REM THIS IS THE 
MACHINE LANGUAGE ROUTINE TO SHIFT 
BITS TO MEMORY SLOT "1" 

515 GOSUB BITCHANGE 

516 NEXT D: RETURN 

519 REM CONVERSION "BITCHANGE” 

520 C= ha (1): IF Ce1 THEN POKE ON 


(0) 
530 IF C#1 THEN POKE OFF(D), O: 
RETURN 





531 REM IF SLOT"1" = 1 THEN TURN THE 
PORT BIT "ON" IF THE SLOT = "0" 
THEN TURN THE PORT BIT “OFF” 

600 END 


SUP’R° TERMINAL 





SUP'R'TERMINAL IS AN 80 COLUMN BY 24 LINE PLUG-IN 
COMPATIBLE BOARD FOR THE APPLE !I| COMPUTER 


SPECIFICATIONS & FEATURES 


* 80 Columns by 24 lines, upper and lower case; all 128 
ASCII characters. 


* Upper and Lower case data entry using the APPLE II 
keyboard. 


* Includes an Upper and Lower case 5x8 dot matrix 
ASCII character set, and inverse alpha characters. 


* Expands existing keyboard for more ASCII 
characters 


* Character set can be user definable 


* Includes VBC™ (video balance circuit) which enables 
the use of displaying 80 columns on an inexpensive 
8 MHz CRT monitor 


© Works with LEEDEX monitor (version 2.2) and other 
inexpensive CRT monitors 


* Shift Lock Feature 

* KEYPRESS function for PASCAL programs supplied 

* Works with APPLE PASCAL and APPLE BASIC 

* Incorporates PASCAL and BASIC control characters 

* Follows protocols of PASCAL and BASIC operating 
systems 

¢ ALL monitor-type escapes are valid 

* Compatible with ALL APPLE II peripherals. 

* Effective baud rate greater than 10,000; fast scrolling 
and clearing 


+ APPLE 118 a trademark of APPLE Computer Co 
APPLE Pls a tragemark of Programma International 








PATENT PENDING 


* Can be used with APPLE Il communication interface 
board to act as self contained terminal for time- 
sharing or other applications. Terminal program 
supplied when used with a D.C. Hayes micromodem. 


* 3K bytes of bank switched static ram 
* 2K bytes of ROM 


* The only board with continuous direct memory 
mapped screened ram. 


* The only board that interprets VTABS by firmware 
(version 2.2) 


* The only board with an adjustable scrolling window. 


* The only 80 column board that is synchronous with 
the APPLE II 


* Fully programmable cursor 


* Conversion program supplied to modify existing 
APPLESOFT programs to work with SUP'R'TERMI- 
NAL (automatically converts HOME,CALL-936 and 
VTABS) (version 1.0) 


* Works with the new Easywriter and APPLE PI word 
processors. 


* Uses less current on the +5V supply than any other 
80 column board 


* Works with CORVIS hard disc system 


M&R ENTERPRISES 


P.O. BOX 61011, Sunnyvale, CA 94088 


MODIFICATIONS 








PRINTER MODIFICATIONS 





CR DELAY 


This program Inserts a vartable delay 
after a carriage return to allow time 
for the printhead to get back to the 
left margin without missing 
characters. 00S 3.2 is required to 
use this modification. 








SOF TWARE. ENTRY 
First you must decide which slot the 
Interface will go In and enter the 
delay program. The program 1s 
customized for this slot number and 
won't work If used with a different 
slot. Enter the program using the 
values from the table for words in 
brackets, ©. 


sor 1234567 
CODE C1 C2 C3 C& CS C6 C7 
PARALLEL COM CARD SERIAL 
TYPE 02 05 o7 
DELAY. The delay {s measured In 
tenths of a second and entered in hex. 


Hence 5 is 1/2 second and A is one 
second. The usual default value Is 5. 


Enter the monitor with call-151 and 
type: 


390:A9 <SLOT> 
220 95 FE 

1A9 80 

320 ED FD 

3A9 AS 

185 36 

249 03 

385 37 

14C EA 03 

220 <TYPE> <CODE> 
2€9 8D 

2D0 OE 

3AD BB 03 

188 


2A9 C2 
120 AB FC 
168 

9 01 
100 FS 
260 
1@DELAY> 


To check your typing. type (390L 388) 
and compare your listing to the one 
below for slot 1 and a Parallel 
Printer Interface. 


0390- A901 ws #01 
0392- 20 95 FE JSR FESS 
0395- A9 80 LOA #80 
0397- 20 ED FD JSR = SFUED 
O39A- AI AS LWA = #SAS. 
039C- 85 36 STA $36 
039E- AI 03 LOA = #03 
03A0- 85 37 STA $37 
O3A2- AC EA 03 IMP -SO3EA 
O3A5- 20 02 C1 JSR -$C102 
03A8- C9 8D CHP #S8D 
O3AA- DO OE BME 038A 
03AC- AD BB 03 LDA = $0388 
O3AF- 48 PHA 

03B0- A9 C2 OA #5C2 
03B2- 20 AB FC JSR SFCAB 
03B5- 68 PLA 

0386- £9 01 SBC 4SO1 
0388- 00 FS BNE = SO3AF 
O3BA- 60 RTS 

038B- 05 


Now return to basic with (3D0G) 
SAVING THE PROGRAM TO DISK: 


The program must be in memory before 
the printer can be used with the 
delay. Save the program by typing: 


BSAVE CR DELAY,AS390,LS2C 
USING THE PRINTER: 


The first time you want to use the 
printer you must load the program and 
initialize the interface. From 
command mode type: 


BLOAD CR DELAY 
CALL 912 


This may be done from a program by 
entering: 


100 PRINT DS$;"BLOAD CR DELAY": CALL 
92 
(assuming that DS {s a control D). 


If you want to switch back to the 
video monitor for output then type: 
PREO 

or from a program enter 

200 PR#O 


Then to reconnect the printer, all 
that {s required is: 

CALL 922 

or from a program enter 

300 CALL 922 


NOTES: 

If the delay needs to be adjusted from 
BASIC, It can be done with the command 
POKE 955,<DELAY>. The delay in this 
case Ls In decimal. Then BSAVE the 
program as explained. 


If this program 1s to be used with the 
Serial Handshake Modification, first 
enter the Serial Handshake mode; then 
enter the Carriage Return Delay 
program and 


POKE 934,197 
POKE 935,3 
BSAVE CR DELAY,AS390,L$2C 


Use these instructions to turn the 
printer on and off. 


HANDSHAKE 


FROM APPLE COMPUTER CO. 


The High Speed Serial Interface card 
cannot run faster than 300 baud on 
most printers due to a lack of a 
printer busy line. This modification 
uses the existing data Input line to 
sense If the printer 1s busy and 
inhibit output If necessary. DOS 3.2 
1s required to use this modification. 


© © WARNING? © © 
Damage to the Serial Interface card 
may not be convered by your warranty. 
If you aren't sure of the siqnal 
levels and pinout of your printer, 
find out or get someone who knows to 
help you. 


40 


© © eWIRING CHANCES® ¢ * 
First you must determine which wire 
your printer uses to Indicate a 
printer busy or buffer full condition. 
Your printer's manual should contain 
this information or contact the 


manufacturer. Examples: 

IDS 125/225 PIN & (may be pins) 
HEATH H-14 PIN & 

TI-810 PIN 11 

‘SPINTERM PIN 19 

COMPRINT PIN 20 


The preferred place to do the wiring 
change Is in the cable, but It can 
also be done at the card or the 
printer. Disconnect the wire between 
pin 2 of the printer and pin 2 on the 
Serial Card. Then connect the wire 
with the printer busy signal to the 
wire for pin 2 on the Serial Card. 


* © SOFTWARE PATCH? * * 

Next you must decide which slot the 
Interface will go in and type In the 
software patch. The patch Is 
customized for this slot number and 
won't work [f used with a different 
configuration. The patch forces the 
computer to look to see if the printer 
Is busy and wait if it Is. Enter the 
patch using the values from the table 
for words in brackets, <>. 


sor 12 3 4 5 6 7 
DATA 90 AQ BO CO DO £0 FO 
CODE C1 C2 C3 Ce CS C6 C7 


Enter the monitor with CALL -151 and 
type: 


3B0:A9 <SLOT> 
220 95 FE 
A900 

220 €D FD 

2A9 CS 

185 36 

2A9 03 

285 37 

28C EA 03 

22C <DATA> CO 
730 FB 

24C 07 <CODE> 
200 00 00 


To check your typing, type 3BOL -and 
compare your listing to the one below 
for slot 1. 


0380- A901 LDA #501 
O3B2- 20 95 FE JSR SFE9S 
03B5- A900 LDA #500 
0387- 20 ED FD JSR SFOED 
038A- AICS = LDA ASCS. 
038C- 85 36 = STA $36 
038E- A903 LDA #$03 
03CO- 85 37 STA $37 
03C2- &C EA 03 SMP SO3EA 
03C5- 2 90 CO BIT SCO90 
03C6- 30 FB BMI. SOICS. 
O3CA- 8C 07 C1 SMP $C107 
03cB- 00 aRK 

03¢c- 00 @RK 

03CD- 00 BRK 


Now return to BASIC with 300. 


© © © SAVING PATCH TO DISK* * * 
The patch must be In memory before the 
printer can be used at the higher 
speeds. Save the patch by typing 
BSAVE PATCH, AS380, LS20. 





* © SUSING THE PRINTER® © © 
The first time you want to use the 
printer you must load the patch and 








Initlallze the interface. From 
[mediate mode type- 

BLOAD PATCH 

CAL 984 


This may be done In a ram by - 

100 PRINT 0S; "BLOAD PATCH": ht aad 
(0S = CONTROL D) 

To turn off printer use PRO. 


Then to reconnect the printer, all 


that Is required 1s CALL 958 or from a 
progran 300 CALL 954. 


28 oNOTES® © © 

If the printer does not print after 
the CALL 984, Lt Ls probably sending 
the opposite polarity busy signal. 
The patch can be changed to recognize 
alth 

POKE 968, 16 

If this doesn't work, have the printer 
checked. 


The wodification allows the speed, 
coluan width, and other variables to 
be changed with the POKEs in the 
anual. 


[nc aT 


COLOR KILL 
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YY DANIELOON 


For you ploneers who bought your 
APPLES before the color killer 
Sodifleation was put in and if you now 
use a color TV for a monitor, then 
this article may interest you. 


Take two parts, a 243908 transistor 
(or an equivalent) and a 1.6K resistor 
and solder them to the breadboard 
section of your APPLE as In Fig. 1. 
The transistor base and the free end 
of the resistor should be tied 
together, Take some hook-up wire and 
90 from the other free end of the 
Fesistor to IC #F14-pin 4 With 
another plece of wire go from the 
transistor collector to the color 
trimer point. Take a third plece of 
"Ire and go from the transistor 
taltter to ground of the capacitor 
next to the edge on the corner. 


Fig. 21s the schematic of the two 
Parts and how they tle Into the APPLE 
System. To test the final product, 
dust ag it back together and turn it 
we Into BASIC, type GR, then type 

‘XT. The screen should go from color 
to black and white. 





APPLE MOD'S 





FIG. 2 


USER FIRMWARE 


APPLE APPLICATION NOTE 





NOTE: The modification described in 
the following instructions will vold 
the warranty on your APPLE Il. 


There are times when you may want to 
create your own firmware for the Apple 
Il. Such firmware can be tailored to 
your special needs and then installed 
Semi - permanently so that It can be 
used as conventently as Apple BASIC or 
the Monitor. 
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This application brief details a 
simple modification which allows your 
Apple II to accept Industry standard 
2716 (2kx8-bit) Eraseable Read - Only 
~ Memories (EPROH's) In sockets "DO" & 
"D8". These sockets correspond to 
memory addresses D000 - DFFF. 





EPROM's (2716) are readily available 
through most semiconductor 
distributors. Many distributor 
locations are equipped to program the 
EPROM's to your specifications, and 
will do so for a moderate fee. 


1. Remove the 'EO' ROM from its 
socket. On the TOP side of the board, 
under the 'EO' socket, cut the ROM pin 
18 jumper tra Then reinsert the 
ROM, This cut will Isolate pin 18 or 
ROM 'DO' & 'D8' from pin 18 of the 
other ROM. Reinsert the 'E0' ROH when 
done. 





*E0' SOCKET 
ZL (rin tt 


Cut this trace 


2. On the UNDERSIDE of the Apple 
board, cut the traces connecting pin 
20 to '21 of ROMs 'DO' & 'D8' only. 


3. (Underside) Cut the trace going to 
pin 18 of ROM ‘D8' near the chip. 


“Scrape solder resist off of 


approximately 1/4 inch of the 
remaining trace not still connected to 


pin 18. You may wish to tin it with 
Solder since it will later be 
soldered. 


&. (Underside) Connect pin 18 of ROM 
'DB8' to pin 12 of ROH 'EO' (ground). 


5. (Underside) Connect pin 18 of ROM 
*EO' to the trace which previously 
went to pin 18 of ROM 'D8' (and which 
should be pretinned if step 3 was 
followed). 


6. (Underside) Connect pin 21 of ROM 
"D8" to pin 21 of ROM 'DO'. Then 
connect both of these to pin 24 of 
either ROM (VCC). 


7. Note that the INH control function 
(pin 32 on the Apple 1/0 BUS 
connectors) will not disable the 2716 
EPROMS In the 'DO’ & 'D8' ROM slots, 
since pin 21 {s a power supply pin and 
not a chip select Input on the EPROM. 


8. EPROM (2716) devices may now be 
used in sockets 'DO' & 'D8' 


NOTE: _IF YOU MAKE THIS MODIFICATION, 
DO NOT INSTALL A ROM CARD OR THE 
LANGUAGE SYSTEM BEFORE REMOVING THE 
DEVICES IN SOCKETS 'DO & D8’. 


6 COLOR MOD 


APPLE APPLIGIATION NOTES 
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WARRANT 





Applies only to APPLES with serial 
numbers below 6000 (REV 0 PC BOARD). 


1, REMOVE THE APPLE II PC BOARD FROM 
ITS ENCLOSURE 


(a) Remove the ten (10) screws 
securing the plastic top plece to the 
metal bottom plate. Six (6) of these 
are flat-h crews around the 
perimeter of the bottom plate and four 
(4) are round-head screws located at 
the front lip of the computer. All 
are removed with a Phillips-head 
screwdriver. Do not remove the screws 
securing the power supply or nylon 
Insulating standoffs. 






(b) Lift the plastic top piece from 
the bottom plate while taking care not 
to damage the ribbon cable connecting 
the keyboard to the PC board. This 
cable will have to be disconnected 
from one end or the other. 





(c) Disconnect the power supply from 
the PC board. 


(d) Remove the #6 nut and lockwasher 
securing the center of the PC board. 
These will not be found on the earlier 
APPLE II computers. 


(e) Carefully disengage each of the 6 
nylon Insulating standoffs from the PC 
board (7 on earlier versions). 


(f) Lift the PC board from the bottom 
plate. 


2. ABOVE BOARD WIRING METHOD 


(A) Lift the following IC pins from 
their sockets. 


A8-1 
AB-6 
A8~13, 
Ag-1 
A9-2 
A9-9 


(b) Mount a 741878 (dual c-d 
flip-flop) and a 74LS02 (quad NOR 
gate) in the APPLE Il breadboard area 
(ALL to A region). 


(c) Wire the following circuit ('* 
indicates that wiring Ls to a pin 
which Is out of Its socket). 


3. BELOW THE BOARD WIRING METHOO 
(for neater appearance) 


(a) Desolder all pins of socket A8. 

Lift the socket and its 74.S257 IC off 
the PC board taking care not to 
destroy it. Cut the trace between 
pins 6 and 13 of AB on the top side of 
the board. Also cut the trace between 
pins 13 and 15 on the top. Reinsert 
socket AB and the 74L$257. 


BE CAREFUL! 


A9-154— a9-2* 


14M 
(A10-11) 


(ag-1)* 


GND 


(a9-9)* 






(B8-14) ——» (A8-6)* 


(B8-7) ——» (A8-13)* 


(b) Cut traces going to the following 
IC pins on the bottom of the APPLE-II 
board. Each pin should have a single 
trace going to it. GE CAREFUL! 


A8-1 A9-1 
AB-6 Ad-2 
A8-13 A9-9 


(c) Connect A8-15 to ground (A7-8 on 
the keyboard socket is a nearby 
ground). 


(4) Mount the 74LS7& and 7&LS02 as per 
step (b) of the ‘above the board’ 
wiring method. 


(e) Wire the circuit of the ‘above the 
board' wiring method, step (c). All 
wires are on the bottom of the APPLE 
II board, and no IC pins need be 
removed from their sockets or be 
soldered. 


4%. Reassemble the APPLE II and make 
sure it 1s operational. If not, check 
all wiring very carefully. Make sure 
that all chips are in their sockets 
and properly oriented. 


5. The following color values are now 
applicable to the HI-RES subroutines. 


BLACK2 128 
ORANGE 170 
BLUE 213 
WHITE2 255 


For example, the program below draws 
an orange line from (10,20) to 
eee eee It Ls assumed that the 
- routines are already in memo: 
locations $800-Sorr. v rm, 


© XO=YO=COLR 

5 INIT=2048: PLOT=2830: LINE=2836 
7 ORANGE=170: CALL INIT 

10 nore YO=20: COLR=ORANGE: CALL 


20 X0=200: YO=140: CALL LINE 
30 END 


an 


DUMPLINGS 


BY BO AVELAR 


This article describes an easy 
construction project which will allow 
you to save programs from the APPLE to 
six (6) or more cassette recorders 
simultaneously. 





Actually the circuit can accomodate 
as many as (18) recorders, thru the 
use of (Y) connectors. It is also 
possible to install (18) MIC Jacks 
initially and jumper them in groups of 
three (3). 





The circuit consist of one (1) 7&S67 
(Tri-state hex buffer) IC, pins 1 and 
15 are tied low in order to keep the 
device in the (non) tri-state mode. 
The IC should be mounted in a seall 
aluminum box along with the required 
MIC Jacks and an LED (optional). 


The LED monitors the actual dump and 
indicates if you are properly 
connected to IC (K13). 


To connect the dumper to APPLE II an 
IC test clip was used; thus no hard or 
direct wiring Is necessary. The test 
clip Is attached to k13 Inside the 
APPLE II by locating pin #1 and 
placing the test clip over the IC; 
this can be performed even if the 
computer 1s powered up. 





With a program loaded in the computer 
put the recorders in record mode and 
type save; the LED will come on 
Indicating the save has started, and 
At will go off when done. 


Additional features can be added to 
the dumper. For example, You could 
add a MIC & MIC pre-amp, thus allowing 
you to narrate to all recorders 
Simultaneously. And you could add a 
(6) receptacle (AC) strip controlled 
by a switch; this would allow you to 
leave all recorders in the record mode 
and allow simple control of many 
recorders. 








In conclusion, any wire can be used 
between the dumper and the clip. Be 
sure to Identify pin #1 on the clip. 
A good way is to burn a mark on the 
clip with a soldering iron. 


OUMPLIN@B(CONT) 


RESET FIX 


OY KEN CILVERMAN 


You are right at the end of a 16K 
program In memory and have not saved 
it to the disk yet or writing a text 
file and four pages later - you hit 
"reset". 


Well you can try to retrieve it by 
many methods Like "LAZARUS" program, 
or If you have the Auto Boot ROM you 
Probably have not lost it. 


No matter what it 1s a nuisance when 
we hit the RESET key, and we all hit 
It by accident once in a while. Now 
try this Little 15 cent fix, and the 
only time RESET will be pressed is 
when you WANT to do it. 


1. Remove the key cap for RESET, 
pleture 1. 


by Cet yourself a 7/16 in 1.0.-5/8 in 
. O Ring, Sears model 82-22517 - 
‘isi 2. 





3. Place the 0 Ring over the switch 
under the cap, picture 3. 


4%. Put the key cap back on. 


Now It will take some pressure to 
Press the key. NOTE: This 
fodification might void your Apple II 
Narranty. 


THE 15¢ 15 SEC 
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‘nQ QuikDirt Product Information 


— Management Planning & Decision Making 


(for 32K or 48K APPLE II with AppleSoft Basic. in ROM) 
¥X PRODUCTION SCHEDULING 


Minimize Total Processing Time, N Jobs on 2 Machines 

Minimize Total Processing Time, N Jobs on 3 Machines 

Minimize Total Processing Time, N Jobs on M Machines 

Minimize Number of Late Jobs, N Jobs on 1 Machine 

Minimize Total Processing Time, N Jobs Technologically Ordered 
Minimize Weighted Completion Times, N Jobs on 1 Machine 
Minimize Worst Case of Lateness, N Jobs on 1 Machine 

Minimize Slack Time to Lateness, N Jobs on 1 Machine 


+k INVENTORY CONTROL 


Economic Order Quantity for Constant Demand No Shortages Allowed 
Economic Order Quantity for Constant Demand, Shortages Allowed 
Economic Order Quantity for Uncertain Demand, Shortages Allowed 
Economic Order Quantity for Stocking Strategic Spare Parts 
Economic Order Quantity for Time-Varying Demand, No Shortages 
Decision on Whether or Not to Stock an Item 

In-Process Inventory Forecasting 

Cash Replenishment Model 


yk CAPITAL BUDGETING (Project Selection) 


Defining Projects 

Defining Resources 

Defining Payoffs per Project 

Defining Amounts of Resources Reguired for each Project 
Projects Possible Subject to Resources Available 

Projects Not Possible, Subject to Resources Available 
Sensitivity Analysis of Project Payoffs 

Sensitivity Analysis of Resource Availabilities 
Sensitivity Analysis of Resource Requirements per Project 


3 DISTRIBUTION PLANNING 





Transportation Sources (Supply) 
Transportation Destinations (Demand) 
Transportation Shipping Costs 
Optimal Selection of Routes 
Warehouse Location 

Generalized Network Flows 


Or oor rrr ty 


\Nyman associates 


421 CE LE WAY 
SAN MATEC CA 94402 
415)345- 0380 3X SUGGESTED RETAIL PRICE: $100 
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GRAPHICS 


ANIMATION 


BY CHRIS @ARRIQUES 


You may be aware of articles in the 
CIDER PRESS or CONTACT that mention 
‘Page 1' and ‘Page 2' of display in 
connection with animation. I hope to 
make the use of these pages of screen 
a@ little more clear. 








First of all, when you power-up you 
are viewing ‘Page 1‘ and continue to 
do so unl HiRes graphics 
(which uses 
run a progra: 
outlined. 








like the one to be 


But first, let's start with a program 
that only uses 'Page 1' and should be 
fairly clear: 


10 GR : REM GRAPHICS MODE 

20 CALL -936: REM CLEAR TEXT WINDOW 

30 FOR X=0 TO 19: REM LOOP X &Y 
COORDS 


40 FOR Y=X TO 19: REM ODD RANGE IS TO 
AVOID PLOTTING OVER ITSELF 

50 COLOR=((( (ABS(20-X )-Z)*(ABS(20-Y) 
-1)/25)MOD 16)+16) HOD 16: REM 
THIS HORRID FORMULA COMPUTES THE 


COLOR 
60 PLOT X,Y: REM PLOT ALL REFLECTIONS 
70 PLOT Y,X 
60 PLOT 39-X,39-Y 
90 PLOT 39-Y,39-X 
100 PLOT 39-X,¥ 
110 PLOT 39-Y,X% 
120 PLOT X,39-Y 
130 PLOT Y,39-x 


180 NEXT Y,X: REM GO BACK FOR NEXT 
‘SQUARE 

145 CALL -936: REM CLEAR TEXT ON PAGE 
PACES 


»ACE 

150 VTAB 22: TAB 20: PRINT Z: REM 
PRINT Z 

160 ZeZ+1: REM MOVE ALONG Z AXIS 

170 IF 2=183 THEN Z=-161: REM IF I 
DON'T STOP I WILL GET A >32767 
ERR 


This program just plots colors 
determined in line 50 on the screen. 
Lines 64 through 130 plot all 
reflections so I can just compute 1/8 
‘of the screen and plot it eight times. 
As it 1s, you can see the points as 
they are plotted, but suppose I wanted 
It to Just flash from one step to the 
next. 

First you must type: >LOMEM: 3072 
(To help you visualize what this 
means, turn to the meeory map on Page 
136 In your red manual.) 


Before typing this, LOMEH equals 800 
HEX, which puts your variables tn 
‘Page 2' so your screen and variables 
Interfere with one another. One or 
the other must be moved. Since ‘Page 
2' Is there due to hardware it can't 
be moved, so obviously we have to move 
the variables. Typing 'LOMEM: 3072" 
moves the variables to COO HEX (or 
3072 decimal). 


Then enter the following: 
© REM LOMEH: 3072 

+200 POKE-16300,0: REM FLIP TO PAGE #1 

210 REM COPY PAGE #1 TO PACE #2 

220 POKE 60,0: POKE 61,4: REM START 
ADDRESS OF PACE #1 

230 POKE 62,255: POKE 63,7: REM END 
ADORESS OF PAGE #1 

240 POKE 66,0: POKE 67,8: REM START 
ADORESS OF PACE #2 

250 CALL -468: REM D0 THE COPY 

260 POKE -16299,0: REM FLIP TO PG. #2 


Line 0 1s to remind you of the above. 
Line 200 turns your view to ‘Page 1'. 
Lines 220 - 280 state where the pages 
are located. 

¥e 250 does the actual move 
Line 260 turns your view to 








Please note my flowchart: 
START 





‘SET GRAPH. 

ICS MODE & 

CLEAR TEXT 
window 


PuT PICTURE 
ON PF 1 


DISPLAY 
PACE 1 


COPY PAGE 1 
TO PAGE 2 


DISPLAY 
PAGE 2 


You should see that except for the 
first time you are looking at ‘Page 2° 
while the picture Is being put on 
‘Page 1'. This way the picture seems 
to jump from one picture to the next 
Instead of being drawn on. 


From this basic flow-chart all simple 
animation can be done. 


Also, if you break the program while 
on ‘Page 2* you need to flip back to 
‘Page 1' before you can see what's 
happening. 


HIRES GRAPHICS 


BY JOHN UHLEY 


NOTE: JOHN WAS 13 WHEN HE WROTE THIS 
ARTICLE. 


If any of you "Apple-Owners” are 
interested in how to plot points and 
how to create ‘interesting’ patterns 
using the super Hires graphics that 
you set up by typing 'POKE -16297,0 
RETURN, and 'POKE -16306,0 RETURN’, 
then this article 1s one that you 
might want to read. 


ae 








To begin, get into Integer BASIC. 
Next, set up the HIRES screen. 

this by typing ‘POKE -16297,0 RETURN’, 
and 'POKE -16304,0 RETURN’. You will 
now see one of two things: either a 
screen full of little colored dots 
that look like they have been smashed 
together, or a screen that has white 
horizontal lines running across It. 
These lines may have a few green 
vertical lines running under thea. 








The next step is to get the cursor 
back. To do this, we will simply 
clear the bottom four lines for text. 
Just type 'POKE -16301,0' and press 
RETURN until you see the cursor. 


You now want to clear the screen to 
black. To do this you must make every 
line number in the monitor starting at 
2000 HEX (8192 In decimal) and ending 
at 3FFF (16383 in decimal) contain the 
value of zero. By simply typing In 
the clearing program, the screen will 
be cleared to black. What happens 
when you run this program {s that the 
value of zero is given to location 
2000, then 2001 (8193 in decimal), 
then 2002 (819% In decimal), and so on 
until the for-next loop reaches 3fFF 
or 16383 in decimal. Now run this 
program (it takes 30 seconds to run). 
Y now ready to plot your first 
HIRES pol nt- iype "POKE 8192,45' and 
hit RETURN. This Is the same as 
typing 2000:2D in the monitor. In the 
upper left hand corner of the screen @ 
line segment will appear. Actually 
could have typed "POKE (any number 
between 8192 and 16383) then a comma, 
and any number between 1 and 255°. 
For this example, however, we will use 
*POKE 6192,45'. 
A line segment appeared on the screen 
because you told the computer to put 
2D(45 in decimal) into locatlon 2000. 
In this mode, any value above zero and 
less than 255 that Is in memory from 
2000 to 3FFF will cause a dot or & 
line to appear on the screen. 











Now that you understand how to plot 
HIRES points, there 1s something that 
you should know. After you get to the 
end of the top line you jump dow to 
the 68th Line. This Is due to the way 
the screen 13 set up. Henceforth, 
when the computer plots your picture, 
it will plot line one, then line 
sixty-four, then Line one hundred and 
twenty-seven, then Line two, and 30 
on. 


If you plan to make pictures, then you 
should know that when you type 'POKE 
"x","Y"*that the computer will find 
"xX" and then draw from "X" over “Y" 
units. These units number from ! to 
255(FF) and are divisions of "X" (sce 
fig. 1). For example, a ‘POKE 
8192,255' won't draw from 8192 to 6447 
(or 8192 + 255). It will draw to 
8193. Therefore a 'POKE 8192,127' 
will draw a line about half way to 
8193. Therefore, a ‘POKE 8192,0° 
erases everything on line segsent 
8192. This Is because the computer 
can't plot from zero to zero. 











With this Information you can create 
Interesting pictures, and intricate 
designs (with the help of for-nest 
loops). 


WIRES GRAPHICS (CONT.) 


255 units 
1 











10 FOR CLEAR = 8192 TO 16383 
20 POKE CLEAR, 0 
30 NEXT CLEAR 
40 END 
RANOOM DOTS 
10 POKE -16297,0: POKE -16308,0 


20 FOR CLEAR = 8192 TO 16383 
30 POKE CLEAR, 0 

‘WO NEXT CLEAR 

50 NI = RNO(8192) + B192 

60 N2 = RNO(255) 
70 
Cc) 
nn 





10 POKE -16297,0: POKE -16308,0 

20 FOR CLEAR = 8192 TO 16383 

30 POKE CLEAR, 0 

‘AT CLEAR 

= 6: REM BY CHANGING G YOU GET 

OIFFEKENT PICTURE 

OR TR = 1 TO 255 

OR TY = 8192 TO 16383 STEP C 

POKE TY, TR 

100 NEXT TY 

‘W10 EXT 

120 ED 

130 REM G = 100 AND G = 91 ARE 
INTERESTING 


OR 


BBs ss 
a2 


WHITE OUT SCREEN 





POKE -16308,0 


10 POKE -16297,0: 

20 FOR T = 8192 TO 16383 
30 POKE T,0 

90 Next T 

50 FOR SERT = 8192 TO 16383 
6 POKE SERT, 255 

70 NEXT SERT 

60 ENO 


SCREEN CLR 


OY BILL sHRYOCK 


LIST 


10 DIM ¢$(21) 

20 CS = '2001<2000. FFFM E88AG' 

30 POKE 8192,0: REM POKE 8192,255 TO 
WHITE OUT SCREEN 

40 FORT = 110 21 

50 POKE 511 + T, ASC(CS(I)) 

60 EXT I 

70 CALL -144, 


Just be sure to set ‘HIMEM: 8192° 
before you run the clear routine. 


Since this routine uses the syste 
"onitor move command to clear the 
Screen tt clears the screen much 


faster than the system in John's 
article, 


HIRES 
STILL LIFE 


@Y JOnM UNLEY 


In the monitor, memory locations 2000 
through FF stands for a very small 
Line on the HIRES screen. This “Line” 
1s made up of 255 sections (Fig. A). 
Depending on the number (X) stored in 
a memory location between 2000 and 
BFF, a different “colored” dot, or 
group of dots, will be seen on the 
screen. To explain, let's assume that 
memory location 2000 contains FF (255 
in decimal). If this occurred, a 
white line (actually many dots) would 
stretch from 2000 (0) to 2000 (255). 
If semory location 2000 contained 2D 
(127 in dec 1) then a group of 
"colored" dots would appear from 2000 
(0) to 2000 (127). In other words, a 
series of dots will appear on the 
screen starting at the memory 
location, "dot" zero, and ending at 
the memory location "dot" x. 








In order to change the value stored in 
a mesory location, from basic, you 
have to elther 'POKE In’ a new value 
or use the HPLOT command. To 'POKE 
in’ a new value you need two things. 
First, you need the memory location 
you want to ‘POKE into’ (converted 
into decimal), and second, you need 
the decimal value you want to 'POKE 
in'. An example of this Ls 'POKE 
8192,127'. This stores 2D (127 In 
decimal) in memory location 2000. 














If you don't understand how to 'POKE 
In’ values from basic, or how the 
values stored in memory locations 2000 
through 3FFF affect the length of the 
"dots" or "lines" appearing in the 
screen, I suggest that you read 
HIRESOLUTION GRAPHICS, Page 46. 


When you type 'HGR’ AND HIT RETurn, 
the computer "COSUBs" Into a special 
machine language subroutine, via the 
command tables. This machine language 
subroutine performs several functions. 
One of its functions Is to Load the 
Accumulator (LDA) with memory 
locations C050 and C057. This 
“turns-on" the HIRES screen. Another 
of its functions {s to clear the 
screen to black. It does this by 
storing zero in memory locations 2000 
thru 3FFF. As you know the computer 
draws from the memory location “dot” 
zero to memory location "dot" X(where 
X is the amount stored in that memory 
location). Obviously, it ts not 
possible to draw from zero to zero. 

Therefore, any memory location 
containing zero will be a black space 
on the screen. If all the memory 
locations starting at 2000 and ending 
at 3fFF contain zero, then the entire 
HIRES screen will be black. 


As you know, when you type "POKE nul, 
num2", num2 (converted into hex) Is 
stored In num! (converted into hex). 
As previously mentioned, you can "POKE 
in" a number from basic, or you can 
use the HPLOT command. If you use the 
HPLOT command “POKE numi" is replaced 
by one of the three versions of the 
HPLOT command (see Table A.). This 
leaves you the number that you want to 
store In your wemory locations. 


ar 


This number, In a way, 1s replaced by 
the value of HCOLOR. The command 
HCOLOR=X (where X 1s a number between 
0 and 7) assigns the sequence that you 
Start and step by. What I mean by 
this Is that there are seven colors 
(see Fig. B). Each time the computer 
plots a dot, It steps seven times, 
skipping six colors each step (Fig. 

C). So there will always be a small 
"space" (the six unused colors) 
between all HORIZONTAL lines. This 1s 
NOT always true with vertical and 
diagonal lines because there 1s no 
space between each vertical Line (Fig. 








When you type "HPLOT num, num2', a 
single dot appears on the screen. 
Likewise, when you type 'HPLOT nual, 
rum2 to num},nums' a line, made up of 
dots, will appear on the scr: 
starting at numl, num2 and ending at 
run3, rum. What the computer does to 
make these lines {s to compute the 
correct values, and store these values 
in the correct memory locations. 
After it has done this it returns 
control to the program or programmer. 


Hoperully, you nom know how to use the 
HGR, HCOLOK, and HPLOT commands. If 
you are still not sure about how to 
use these commands, try the three 
programs given later in this article. 
After you have done those programs try 
making one of your ow. 








Now that you know how to make HIRES 
pictures you might want to know how to 
save "still-life" pictures you make. 
1 do not mean making a program, saving 
it, and running it again. I mean 
saving the picture that is In memory 
from 2000 through 3FFF. 


As you know when you tell the computer 
to HPLOT a line Lt computes the 
correct values to store somewhere 
between 2000 and FFF. Depending on 
the value, different colored dots and 
Lines appear on the screen. Therefore 
if you save these values, you would be 
saving the “blueprint” to your 
picture, and f you loaded in this 
"blueprint" you would be 
reconstructing your picture! 


If you don't have a disk, all that you 
have to do, after you make your 
picture, is to hit the key marked 
RESET, hook up your recorder, type 
2000. 3FFFW, start the recorder 
playing, hit the key marked RETURN, 
wait for the cursor to appear, and 
rewind the tape. 





If you have a disk all that you have 
to do, after you have made your 
picture, Is to type "TEXT" (if you are 
not in text mode), and type 'BSAVE 
(whatever you want to call your 
program) ,A$2000, L8192' and hit 
RETurn. When the disk stops your 
picture has been saved. 





All that you have to do to see your 
picture, if you don't have a disk, Is 
to hit the key marked RESET, hook up 
the tape recorder, type C050 C057 
2000.3FFFR, turn on the recorder, and 
hit RETurn. When your picture Is 
complete, turn off the tape recorder 
and rewind the tape. 


WIRES OTHE 





toon.) 


If you have a disk, all that you have 
to do to load your picture {s to type 
*HGR' (RETurn) and 'BLOAD (whatever 
you called your program) ,VO'(RETurn). 
When the disk stops, your picture will 
be completed on the screen. 


As a last word, I'd Like to add that 
you can view your picture in Integer 
Basic by loading it in, and typing 
"POKE -16297,0'(RETurn) and ‘POKE 
-16304,0'(RETurn). 


ALL PROGRAMS IN FP 
10 HGR 
20 HCOLOR = X 30 HPLOT RND(1)#270,190 
TO 100, 

RND(1)#190 
WX =X 
5OIF X+ 126 THENX=1 
60 GOTO 20 
70 ENO 





10 HGR 

20 HCOLOR = 5 

30 HPLOT X,100 TO 0,0 
QOX=X42 

50 GOTO 30 

60 END 


point 

HPLOT X,Y TO E,R--HPLOT's from X,Y to 
E,R 

HPLOT TO X,Y--HPLOT's from the last 
plotted point to X,Y. 








COLOR POKE 


BY ART waits 


For those of you who have any need to 
desire to POKE colors into a lo-rez 
program, you can do so by putting the 
color into location $30, which is 
decimal 48. The following chart shows 
which numbers to POKE in for which 
colors. 





DECIMAL COLOR 

00 Black 

7 Magenta 

5s Dark Blue 
31 Light Purple 
68 Dark Green 
85 Grey 

102 Medium Blue 
19 Light Blue 
136 Brown 

153 Orange 

170 Grey 

187 Pink 

204 Green 

221 Yellow 

238 Blue/Green 
255 white 


PAGE-FLIP 


BY @LaN HOA® 


DEMONSTRATION OF THE PROCEDURE 
MOVE PAGE 1 TO PAGE 2 OF BASIC 
28 JANUARY 1979 
BY GEN C. HOAG 

FLOW 
1) SET UP PACE 1 SCREEN 
2) SET UP POINTERS FOR PAGE 1 


3) SET UP POINTERS FOR PACE 1 
'4) SET UP POINTERS FOR PAGE 2 
iT 


( 
( 
START 
¢ 
¢ 


(5) CALL MONITER MOVE ROUTINE 
(6) POKE THE SWITCH TO DISPLAY 
z 


140 REM STEP (2) 

150 POKE 60,0: POKE 61,4: REM POKE 
VALUES FOR Al 

160 REM STEP (3) 

170 POKE 62,255: POKE 63,7: REM POKE 
VALUES FOR A2 (CONTAINS SO7FF) 

180 REM STEP (4) 

190 POKE 66,0: POKE 67,8: REM POKE 
VALUES FOR A% (CONTAINS $0800) 

200 REM STEP (5) 

210 CALL -468: REM HONITER MOVE 
ROUTINE LIVES AT SFE2C 

220 REM STEP (6) 

225 CALL -936: REM CLEAR PACE 1 

230 POKE -16299,0: REM TURN ON PC.2 

235 PRINT “THIS IS PACE 1” 

240 FOR I=0 TO 1000: NEXT I 

250 POKE -16300,0: REM TURN ON PC. 1 

260 FOR 120 TO 1000: NEXT I 

270 GOTO 230 





21 HIRES COLORS 


The following program was on our 
August 1979 DOH (Disk Of the Honth) 


LIsT 
20 HGR 25 FOR C=39 TO 139 STEP 2 
30 XCUR=5 
50 FOR A=1 TO 6 
60 FOR B=A T0 6 
70 HCOLOR=A:HPLOT XCUR,C TO 

XCUR + 10,C 
80 HCOLOR=8* HPLOT XCUR,C + 1 

XCUR + 10,C + 1 
90 XCUR=XCUR + 12 
100 NEXT B,A,C 
110 ENO 
112 REM BY ANDY HERTZFELD AFTER AN 
113 REM IDEA BY D. ALDRICH GIVEN 
11% REM TO SF APPLE CORE 7/79 
115 REM TYPED BY KEN SILVERMAN 
116 REM AS READ TO HIM BY SCOT 
117 REM KAMINS WHILE PAUL WYMAN 
118 REM WAS TALKING TO THE AUTHOR 
119 REM DURING THE TIME 21 MEMBERS 
120 REM WERE PRESENT AT VILLAGE 
121 REM ELECTRONICS. THANKS TO ALL 
122 REM INCLUDING HY MOTHER. 


PS - The smaller the color TV screen 
the better this looks - If you have @ 
color monitor around this looks great. 


TEXT SCRN MAPS 


ADDRESSES SHOWN ARE FOR THE FIRST CHAR 
IN EACH LINE - LINES ARE 40 CHRS. LONG 








UNE e — POKE ADDRESS 
‘00 — 2048 
0 2176 
2 — 2304 
03 — 2432 
04 — 2560 
05 — 2668 
06 — 216 
07 — 2944 
08 — 2068 
09 — 2216 


tit 
WE 


15 — 2964 
16 — 2128 
17 — 256 
18 — 2384 
19 — 2512 
20 — 2640 
21 — 2768 
2— Be 
a— we 


UTILITIES 


49 


SLOT #’S AS 
VARIABLES 


OY PRANK FI8H 





In/Out slots can be specified as 
variables! These can then be defined 
once, and then used anywhere In the 
progr In BASIC, the statements 
might look like this: 


100 PR = 1:REM PR IS SLOT# OF PRINTER 





110 PL = 3:REM PL IS SLOT# OF PLOTTER 


4800 PREPR:PRINT "THE PRINTER IS IN 
‘SLOT ";PR 


This might be a useful way to 
eliminate the enforced “convention” of 
having the 1/0 slots fixed. (I don't 
know if this would be practical for 
disk drive I/0 slots however). 
Program documentation might Include a 
mention of what statements define the 
1/0 slots, and then all programs might 
be easily customized. Both Applesoft 
II and Integer support this. 





“RANDOM” BUG 


BY JA suits 





The DOS 3.2 System Master Diskette 
contains @ program called RANDOM for 
demonstrating a small inventory 
control scheme (pp. 86-88 of the 
Manual). If you have trouble with 
running this program replace ST in 
Line 290 with BW;","5;ST. 








B/BSTAT 


Yes this month we bring you another 
BSTAT. There have been loads of 
BSTATs in the past, but we think this 
Is the best ever. Last month's two 
BSTATs were great, but this time we 
combined the best features of both... 


This one (B/BSTAT) should work on any 
size system and 1s located out of the 
way of most programs. 


A neat feature is that you have your 
choice of elther hex or decimal 
output. 


It gives you a catalog of the disk so 
you can enter the name of the desired 
program exactly with a cursor move and 
Save the program with a second cursor 
move. The call code Is also given for 
running the progr; 





2 


vy 


awe 


~ 


10 
W 


12 
13 


4% 
15 
16 


7 
18 


9 
20 
2 


REM [ "BSTAT" VERSION 7 ] 
POKE 74, PEEK (76): POKE 75 

» PEEK (77)-8: CLR 

M=150- PEEK (77):H=169:SL=181 
LL =163:H=H-M:S=1:K=256:1=- 
384:N=-3860:G=-198:0$="" 

DIM F$(50),HS(16),2$(50):HS 
="01234567B9ABCDEF™: IF H<128 
THEN &:S=-1:H=K-H:PTCH=0: IF 
PEEK (977)=191 THEN PTCH=169 





SA=S*K*HsSL +PTCH:LA=S*K*HeLL+ 
PICH 

PRINT DS;"NOMON C,I,0": TEXT 

: CALL -936: VTAB 3: TAB 8 

CALL I: PRINT " (B)FILE STARTING 
ADDRESS ": PRINT : TAB 9: PRINT 
"AND LENGTH DELIMITATOR * 

CALL Nz: PRINT : TAB 16: PRINT 

"[ BSTAT ]": VTAB 10: TAB 10 

: CALL I 

PRINT " HEX OR DEC ADDRESSES * 

: CALL MN: CALL G: PRINT : TAB 
15: PRINT "[H] OR [D] 2” 

P= PEEK (-16384): POKE -16368 
+0: IF P=196 THEN 10: IF Pz 

200 THEN 12: GOTO 9 

GOsuB 18: GosUB 22 

TAB Te8: PRINT ",A™ZA5",L"5 

Ly: GOTO 15 

GOSUB 18: GOSUB 22:X=A 
GOSUB 28:T=T+8: TAB T: 
",AS";: GOSUB 30 

X=L: GOSUB 2: TAB T: 
*,L$";: GOSUB 30 

PRINT ",V": PRINT " CALL "; 
A: VTAB 23: TAB 11 





PRINT 





PRINT 





CALL I: PRINT " TO RUN ‘CALL * 
yA;™* ": CALL N: CALL G 
VTAB V-1: LOMEM:2048: END 


PRINT DS;"CATALOG": PRINT = 
CALL G: IF P=196 THEN 20 
PRINT " FILE NAME ? [H]": GOTO 
21 

Vz PEEK (37): PRINT “ FILE NAME 
2 (ol"s 

VIAB 18: TAB 7: INPUT FS: PRINT 
DS;"BLOAD";FS:V= PEEK (37): 
RETURN 

As PEEK (SA)+kK® PEEK (SA+1) 

tLe PEEK (LA)+K® PEEK (LA+1 

): VTAB Vz CALL -958 

PRINT " BSAVE "sF 
FS): RETURN 

B=X MOD K: GOSUB 28 

B=X/K: GOSUB 26: RETURN 
AS=HS (148/16, 148/16) 
BS=HS$(1+B MOD 16,1+B MOD 16 
): RETURN 
C$=H$(1+B/16,1+B/16) 
DS=HS(1+8 MOD 16,1+B MOD 16 
):_ RETURN 

TsT+3: IF AS="0" THEN 31: 
AS;BS;CS$;0$;:TeTe+’: RETURN 


IF BS$="0" THEN 32: PRINT BS 
3C$;0$;:T=T+3: RETURN 
IF C$2"0" THEN 33: PRINT CS 
30$;:T=T+2: RETURN 
PRINT OS;:T=Tel: RETURN 
REH eee 


LEN( 





PRINT 








REM * HERTZFELD'S "BSTAT™ © 
REM © MODIFIED BY é. 
REM © WEYHAN FONG . 
RE © GLEN C_HOAG ° 
REM * FOR THE APPLE CORE * 
REH Ceccccccccsncccccsconecs 
REM 

REM MODIFIED TO OPERATE IN BOTH 
REM VERSIONS 3.1 AND 3.2 DOS 
REM BY G. C. HOAG ON 10 JUN 1979 


—_—_—_—_—_—_—_—_—__ an 22... __—= 
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LAZARUS 


BY ANDY HERTZFELD 


This article describes LAZARUS, a 
short machine Language program which 
can resurrect Inadvertently erased 
BASIC programs. 


When a BASIC program is erased, It Is 
usually not destroyed. It Is probably 
Still sitting around somewhere In 
memory; however, the BASIC Interpreter 
no longer knows where to find It, so 
It Is effectively lost. LAZARUS scans 
through memory trying to find the 
largest valid BASIC program that it 
can. If It finds one it resets the 
interpreter's pointers to point to the 
found program, thereby resurrecting 
It. If no valid program is found an 
error message will be printed. In 
either case, control is returned to 
BASIC interpreter. 











If there are many program fragaents 
floating around the workspace, It 
might not resurrect the one you are 
Interested in. f you had performed 
some deletions of low-numbered 
ements prior to the erasure, It 
y restore the deleted lines along 
with the rest of the progras. If your 
program was located in an unusual part 
of memory, it may not know where to 
look for it. In practice these 
problems are rare; LAZARUS should be 
successful most of the time. 

















The code for LAZARUS Is relocatable 
since all of its branches are relative 
in page zero. $300 seems to be a 
convenient place to load It. You can 
load it for the first time by golng 
into the monitor mode and typing: 








Max OUMP 8 ° 

0300- A9 FF DO 02 A9 00 85 FO 
0308- 85 F1 20 69 F6 BO 3A EO 
0310- 35 13 0% 00 16 4A 00 17 
0318- &C 00 66 36 32 67 37 22 
0320- 07 03 59 82 DS 07 FB 22 
0328- FO 38 39 E6 48 D3 02 18 
0330- A9 3% %& DS 07 12 27 DA 
0336- 05 OE 28 FO 39 68 31 E& 
0340- 6& D1 05 0% 29 38 01 £3 
0348- 22 FO 34 D9 06 DI FS FS 
0350- F& 11 05 00 6% D1 06 00 
0356- E1 10 FF 00 D1 G2 CO 24 
0360- D6 05 BC O1 EF 29 32 E2 
0368- BS 31 18 FO 00 68 06 OF 
0370- 21 DA O2 AB 21 3A 26 3B 
0378- 29 3C 01 A3 2A 06 12 11 
0380- CA 00 2B 71 11 aC 00 2 
0368- EO 71 00 20 3A FF AC 03 
0390- EO 00 20 20 FF 4c 03 £0 


Once It has been loaded it can be 
Saved by typing 300.3A0W and then 
subsequently loaded back in by typing 
300.3A0R (for type use). For disk It 
can be saved with, "“BSAVE 
LAZARUS ,AS300,LS3A0" and of course for 
loading “BLOAD LAZARUS". 


LAZARUS (CONT.) 


LAZARUS Is very easy to use. After 
losing a program, enter the monitor 
and load LAZARUS. Then return to 
BASIC and CALL 768 or CALL 772. The 
former will cause the longest program 

nt in workspace to be restored; 
the latter will cause the last to be 
selected. When it returns, do LIST to 
see what 1s found. If both entry 
points recover the wrong program, you 
can adjust LOMEM @ HIMEM and try 
again. 


QUICKIE TIP 


ov 





To access the assembler directly from 
basic: 


CAL -2858 
To return to basic from the assembler: 


1$ (CTRL C) (RETURN) 








ARY LITTER 
a APPLEGRAM 








As all APPLE II PLUS users and other 
omers of the AUTOSTART ROM chip know, 
the editing features which that chip 
Provides are tresendously superior to 
those found on the ordinary APPLE IT 
systea. In particular, it allows the 
user to easily freeze or terminate 
Output to the video screen and it also 
elleinates the need to repeatedly 
Press the ESC key in order to perform 
multiple pure-cursor movements. 


Since I write a lot of BASIC programs 
T knew that these features would be of 
Great use to me, but before rushing 
Gut to buy the chip I decided to try 
to write a machine language prog 
whlch would duplicate these features. 





The program that I have come up with 
fot only allows for the ‘AUTOSTART * 
editing feature: but also for two 
ditional useful features: 





1. By pressing a control character, 
{t Ls possible to quickly copy over 
text from the current cursor position 
to the end of the line, thus 
elieinating the need to repeatedly 
Press the right-arrow key. 

2. By pressing a control character, 
the screen width can be changed to 33 
es, a POKE 33,33 COMMAND RESULTS). 
thls feature is useful when editing 
Program Lines which, when listed with 
the window width set at its normal 
f 40, would contain unwanted 
nm string-variable 








The program, which I call EDIT+, exits 
in two versions, each of which Is 
Listed below. The DISK version Is to 
be used whenever DOS 3.2 has been 
booted and Is active; otherwise, the 
TAPE version is to be used. The DISK 
version resides in memory from $300 to 
$3CF and the TAPE version resides from 
$300 to $3C3. In order to avold 
unpredicable results, EDIT+ must be 
deactivated (by pressing RESET) before 
using these memory locations for any 
other purpose. 


Either version of EDIT+ is to be 
loaded into memory starting at 
location $300. For details on how to 
enter machine language code into 
memory, see page 68 of the APPLE II 
Reference Manual (red book). 





The detailed operating instructions 
for EDIT+ are as follows: 


1. After EDIT+ has been loaded into 
memory, the TAPE version can be saved 
to tape by entering the co 

300. 3C3W from the system monitor. The 
DISK version can be saved to diskette 
by entering the comeand BSAVE EDIT+, 
AS300, LSDO from BASIC immediate 
execution mode. 





2. To activate the TAPE version of 
EDIT+s, load it from tape via 
300.3C3R command from the system 
monitor, enter the command 300G, and 
then enter BASIC by entering CTRL C 
(or 0G for RAM APPLESOFT programs). 
To activate the DISK version, enter 
the command BRUN EDIT+ from BASIC 
immediate execution mode (or enter 
BLOAD EDIT+, press RESET to enter the 
system monitor, and then enter the 
command 300G300G). 





3. To use EDIT+, follow these 


procedures: 
Freezing, continuing, and halting 
output to the video screen: 

(a) Press CTRL S in order to freeze 
the output to the video screen. 

(b) Press any key in order to 
continue the output to the video 
screen after it has been frozen. 

(c) Press CTRL C in order to halt 
the output to the video screen and 
enter BASIC Lmmediate execution mode. 





Pure cursor motions and screen cle: 

Press ESC in order to activate the 
cursor-motion and screen-clear keys- 
The cursor-motion and screen-clear 
keys and their functios are 
follows: 

I -- Move cursor up 

-- Move cursor left 
-- Move cursor right 
=~ Hove cursor down 
- Clear to end of line 
++ Clear to end of page 






amzRe 


To deactivate the cursor-motion and 
screen-clear keys, press a key other 
than I, J, K, M, E, or F. This key 
will not be displayed. 





Copying over text to the end of 
line: 


Press CTRL Z in order to copy over 
the text from the current cursor 
position to the end of the line. 


Setting the window width to 33: 
Press CTRL Q in order to perfors 


the equivalent of a POKE 33,33 
command. eo. 


4. To deactivate EDIT+, press the 
RESET key. (EDIT+ will also be 
deactivated by PR# and IN@ commands 
from BASIC). 


Special note for RAM APPLESOFT users: 


To use the TAPE version of EDIT+ In 
conjunction with a RAM APPLESOFT 
Progr. the last two bytes of the 
TAPE version must be changed from 03 
£0 to 00 00. This will ensure a 
proper Jump back into APPLESOFT 
immediate execution mode when CTRL C 
is pressed after the output to the 
video screen has been frozen. 


How EDIT+ works: 











The EDIT+ program uses the APPLE II 
input and output hooks In order to 
Invoke the editing and stop list 
features. For details of the 
algorithas involved, see the annotated 
dissembled listing reproduced below. 





HEX DUMP (DISK VERSION) 


03A8- 
0380- 
0388- 
03C0- 


oa 
3 


>CALL-151 
#300. 30F 
0300- AI 13 85 38 AI 03 85 39 
0308- 85 37 A A7 85 36 AI 00 
0310- 85 06 60 20 1B FD 24 08 
0316- 30 08 C9 96 DO 59 AD BF 
0320- 85 06 A 9B 60 C9 C9 00 
0328- 08 AJ C& 30 24 C9 CA 00 
0330- 08 AJ C2 30 IC C9 CB DO 
0338- 08 AI C1 30 18 C9 CD 00 
0340- 0% AI C3 30 OC CI C5 DO 
0348- 04 AI C5 30 0% C9 C6 DO 
0350- 08 24 08 70 00 48 AD FF 
0358- 85 08 68 60 48 A? 00 85 
0360- 08 68 85 09 68 85 06 68 
0368- 85 07 68 AD 31 48 AS 07 
0370- 48 AS 06 48 AS 09 60 C9 
0376- 91 DO 07 A9 21 85 21 AD 
0380- AO 60 C9 9A DO 20 AS 24 
0388- B1 28 48 £6 24 E6 24 AS 
0390- 28 C5 21 BO OC C6 24 68 
0398- 9D 00 02 £8 DO EB AC 62 
03A0- FD 68 C6 24 C6 2& 60 C9 
03A8- 8D DO 1E 46 AD 01 CO 80 
0380- 11 CO 10 14 C9 83 FO 14 
03B8- C9 93 DO OC AD 01 CO 10 
03C0- FB 8D 11 CO C9 83 FO 0% 
03C8- 68 4C FO FD 68 4C DO 03 
HEX DUMP (TAPE VERSION) 
>CALL-151 
#300.3C3 
0300- AI 13 65 38 AI 03 85 39 
0308- 85 37 A9 9B 85 36 AI 00 
0310- 85 FE 60 20 1B FD 24 FE 
0316- 30 0B C9 98 DO 4D Ad BF 
0320- 85 FE A9 98 60 C9 C9 DO 
0328- O& AI C4 30 2% C9 CA DO 
0330- 04 AI C2 30 IC C9 CB DO 
0338- O8 AI C1 30 18 C9 CD DO 
0340- 04 AI C3 30 OC C9 C5 DO 
0348- 04 AI CS 30 08 C9 C6 DO 
0350- OB 28 FE 70 0D 48 AS FF 
0358- 85 FE 68 60 48 A9 00 85 
0360- FE 68 85 FF 68 AD 31 48 
0368- AS FF 60 C9 91 DO 07 AD 
0370- 21 85 21 A9 AO 60 C9 9A 
0378- DO 20 AS 24 BI 28 48 £6 
0380- 24 E6 2% AS 24 C5 21 BO 
0388- OC C6 2% 68 9D 00 02 £8 
0390- DO E8 4C 62 FD 68 C6 24 
0398- C6 24 60 C9 8D DO 1E 48 
03A0- AD 01 CO 8D 11 CO 10 14 
C9 83 FO 14 C9 93 D0 OC 
AD 01 CO 10 FB 8 11 CO 
C9 83 FO 0% 68 4c FO 
68 &C 03 £0 


FREE SPACE 


BY ANDY HERTZFELD 


This program calculates the amount of 
free space available on a given 
diskette. It prints out the answer in 
terms of kilobytes and also in terms 
of sectors (there are 256 bytes per 
sector). 


The program performs its task by using 
the RWIS routine to read in track 17, 
sector 0, which contains the bit-map 
used by the DOS for sector allocation. 
It then simply loops through and 
counts the number of bytes that are 
set, thereby obtaining the number of 
free sectors. 


One problem is that the program must 
jump back to BASIC ($E003) when it's 
finished or else it can't be BRUN from 
command level. Thus, to use it froma 
BASIC or machine Language program, you 
should change 088C (4c 03 E0) to "RTS" 
instead of "JMP SE003". 


The program lives at $800 and 1s about 
250 bytes long. It should work on a 
system of any memory size but I've 
only tried it on a 48K machine. To 
use It, type "BRUN FREE SPACE" or 
BLOAD {t, insert the disk you want the 
free space of, and type "CALL 2088". 
After entering the HEX DUMP save to 
disk by BSAVE FREE SPACE,A$800,L$900. 





(FREE SPACE) 


#800.900 

0800- 48 8A 48 98 48 AD 00 8D 
0808- BF 08 8D CO 08 20 £3 03 
0810- 84 1C 85 1D A9 00 AO 03 
0818- 91 1C AO 05 91 1C A 11 
0820- 88 91 IC AS 4C AO 08 91 
0826- 1C AS 4D C8 91 IC AO OC 
0830- A9 01 91 IC AP 00 CB 91 
0838- 1C 20 £3 03 20 D9 03 AO 
0840- 00 B1 IC FO 03 4C 20 FF 
0848- AO 38 B1 4C A2 07 OA 90 
0850- 08 EE BF 08 DO 03 EE CO 
0858- 06 CA 10 F2 C8 CO C4 90 
0860- E9 A9 8D 20 ED FD A9 8D 
0868- 20 ED FD AE BF 08 AD CO 
0870- 08 20 1B E5 AO 00 B9 C1 
0876- 08 FO 08 09 80 20 ED FD 
0880- C8 00 F3 18 A9 02 6D BF 
0888- 08 8D BF 08 90 04 EE CO 
0890- 08 18 6E CO 08 6E BF 08 
0698- 18 6E CO 08 GE BF 08 AE 
OBA0- BF 08 AD CO 08 20 1B ES 
08A8- AO 00 B9 E7 08 FO 08 09 
08B0- 80 20 ED FD C8 00 F3 68 
O8B8- A8 68 AA 68 4C 03 EO 7D 
O8CO- 00 20 46 52 45 45 20 53 
O8C8- 45 43 54 WF 52 53 20 52 
O8D0- 45 40 41 49 4E 20 8D 57 
08D8- 48 49 43 48 20 49 53 20 
O8E0- 41 42 4F 55 54 20 00 48 
O8E8- 20 4F 52 20 53 4F 20 BD 
O8FO- 8D 00 08 14 16 01 42 26 
O8F8- 49 29 D0 49 C9 31 3A aC 
0900- 49 


FREE SPACE 
FORMALIZED 


BY Le ROY LARSEN 


1 came up with the following few Lines 
that you may like to try... 


5 TEXT : CALL -936 

7 PRINT : PRINT : PRINT 

10 PRINT "THIS PROGRAM WILL RUN FREE 
SPACE": PRINT 

15 PRINT "BRUN FREE SPACE, A2088" 

20 PRINT : PRINT 

25 PRINT "INSERT DISK YOU WANT TO FIND 
FREE SPACE": PRINT 

30 PRINT "CALL 2048" 

35 PRINT : PRINT : PRINT : PRINT 
PRINT : PRINT 

40 PRINT "GOTO 45" 

45 VTAB 10 
ND 





65 REM FREE SPACE LOCATION IS 
70 REM AT 2048 TO 3568 


80 REM TO LOAD USE 
85 REM A2048, 11250 


REI 
95 REM BY LEROY W. LARSEN 
98 END 


SON OF N 


BY SCOT KAMING 


Last month's issue of the Cider Press 
semi-featured a disk "HELLO" program 
that did many nifty things. Here Is a 
new version of the program that 
includes reset for himem and lonem. 


© POKE -16298,0: REM CLEAR HIRES 
‘SCREEN 


10 TEXT : REM SET TEXT MODE, CLEAR 
SCROLLING WINDOWS 

20 OS="": REM CTRL D, ALLOWING EASY 
USE OF DISK COMMANDS 

30 PRINT DS;"NOMON C,1,0": REM HIDE 
ALL DISK COMMANDS 

‘40 CALL -936: REM CLEAR THE SCREEN 

50 POKE 7,0: POKE 75,8: REM SET 
LOMEM TO 2048 (THE USUAL PLACE) 

60 POKE 76,0: POKE 77,150: REM SET 
HIMEM TO 38800 (48K ‘PUTERS ONLY) 

70 PRINT DS;"CATALOG": REM SHOWS. 
WHAT'S ON THIS DISK 

80 PRINT DS;"BRUN FREE SPACE": REM 
SHOWS HOW MANY FREE DISK BYTES 
REMAIN 


Note: Line 60 pokes will have to be 
changed If your system is less than 
48K. To find out what numbers you 
should use, merely boot your DOS snd 
print PEEK (76) and PEEK (77), The 
numbers that are returned are the ones 
you should PUKE Into their respective 
places. 





Sibling of note: Line 80 assumes you 


have added to your disk 
Hertzfeld's excellent "Free Space 
Program, the code for which is to be 
found elsewhere in this issue, 


SPLIT CATALOG 


FROM CALL -APPLE 


This program will give you a split 
catalog when you boot your disk If you 
use [t to INIT your disk. You can 
also run it and it will glve you a 
split catalog. If you have a great 
deal of programs on your disk you will 
see them all with this utility, 


This program has come from the January 
1979, page 20 Issue of CALL -APPLE. 


LIST 


10 POKE 768,56: POKE 769,72: POKE 
770,132: POKE 771, 
POKE 773,0: POKE 77 
755,32: POKE 776,176: POKE 77,2 

20 POKE 778,105: POKE 779,192: POKE 
780,201: POKE 781,96: POKE 782, 
176: POKE 783,2: POKE 784,105: 
POKE 785,128: POKE 786,201: POKE 
787,128 

30 POKE 788,176: poke 789,2: POKE 790 
105: POKE 791,64: POKE 792,195: 
POKE 793,2: POKE 798,230: POKE 795 
+2: POKE 796,208: POKE 797,2 

80 POKE 798,230: POKE 799,3: POKE 600 
+108: POKE 601,168: POKE 602,0: 
POKE 803,96: POKE 808,0: POKE 805, 
0: POKE 806,0: POKE 807,0 

50 POKE 608,169: POKE 609,160: POKE 
810,168: POKE 811,36: POKE 612, 
145: POKE 813,80: POKE 818,96 

100 BS=" ":Q=0: DIM AS(250),A(50), 
B(50):DS="":LM= 116 PEEK (74)+ 
PEEK (75)*256: POKE LH, PEEK (977) 
: POKE LH+1,PEEK (978):Q=Q+3037 

110 PRINT DS;"NOMON C, 1,0": 
CALL -936: POKE 2,0: POKE 3,16: 
POKE 0,0: POKE Qe1,3: POKE Q+2,40: 
POKE Q-4,3 

120 PRINT DS; "CATALOG": PRINT “* 


PRINT 0S;"INAO" 














130 PRINT DS;"PREO": 

160 PRINT * * 

200 POKE 34,2:1<4096 

210 J=1 

220 POKE LM-6, PEEK (1): IF ASC(BS) = 
133 THEN 400: IF ASC(BS) = 181 
THEN 280: IF BS=DS OR J>19 THEN 
250: IF K<2 THEN 230: PRINT BS; 











230 [=1e1:J=Je1: GOTO 220 
280 PRINT :1=161:KsKel: VIAB 3+(K-2) 
400 IF K=22 THEN COSUB 600: 





@T0 210 
250 Islet: GOTO 230 
800 TEXT : VTAB 23: END m 
800 POKE 33,19: POKE 32,19: CALL 936: 
URN 





S.F. APPLE CORE 
‘Best of The Cider Press’”’ 
PROGRAM DISK 


The “Best of the Cider Press” program disk contains most of the programs printed 
in this publication. (Checkbook, edit +, FRE(x) and a great deal more.) 


Name 





Street 





City State Zip 





Send $7.50 which includes handling and mailing in U.S.A. 
Add $2.00 for Foreign Air Mail 
Make Checks payable to: “‘S.F. Apple Core” 
and send to: 1515 Sloat Blivd., Suite 2 
San Francisco, CA 94132 








= APPLE 


== TIONAL ORCHARD 
AT CORE SUBSCRIPTIONS 


P.O. BOX 2227 SEATTLE, WASHINGTON 98111, USA 


Pa I a I crn maa RE ie Dae a al ia the ee 
The Intemational Apple Core will make individual subscriptions to "The Apple Orchard" available com- 
mencing with Volume |, Number 2 to be published in September, 1980. 


NAME 





STREET 





CTY 





STATE zIP 





COUNTRY 

Annual Subscription Rate: $10.00 per year 

First Class Postage: $5.00 per year additional (required for Canada, Mexico, APO, and FPO addresses) 
Overseas and other foreign air mail postage (required): $10.00 per year additional 

TOTAL REMITTANCE ENCLOSED: $(USA) ———————— 


Make check or money order payable to "'International Apple Core" and return with this form to: 
Apple Orchard Subscriptions 
P.O. Box 2227 
7N[80 Seattle, Washington, USA 98111 








SAN FRANCISCO APPLE CORE LIBRARY 


CONVENTIONS 


SY UN ROY nem 


The following are conventions that are 
currently being used by the Apple 
Core. This ts a first attempt toward 
establishing conventions with which we 
can live. If you have any input on 
this subject please write the Apple 
Core In care of the Conventions 
Committee. 





PROGRAM REQUIREMENTS 


1. All programs submitted must 
contain your name (either in REM or 
PRINT statements) within the program. 


2. If at all possible the following 
Conventions should be used: 


a) Programs should begin with a POKE 
=16298,0 to turn off the Hi-Res modes 
it should be located in the first 5 
executed lines. 


b) The first thing to be displayed 
after RUN should be the title page 
with the program name, author, date, 
two or more lines of what the program 
does, and the choice of continuing or 
ending (see how below). 


c) Timing loops in programs should be 
avoided. Use "PRESS SPACE BAR TO 
CONTINUE" wherever possible. 


d) Pressing ‘ESC’ should return user 
to next higher level menu or, if no 
menu, exit (end) program. 


¢) Try to Include REM statements in 
your program so that our members can 
learn by your programaing. If for 
reasons of speed you can not do this 
please Include written informat fon 
about your program. 


f) Put a REX statement in the last 
LMne of the program with the TITLE of 
the program. 


g) At the end of a program the 
following should be reset: LOMEM to 
2048, TEXT page 1 by POKE -16300,0, 
Hi-Res mode off by POKE -16298,0, and 
clear screen and set full text window 
by TEXT & CALL -936, clear keyboard 
strobe with POKE -16368,0. 





The preceeding conventions are our 
attempt to put some standards into our 
programs within the library. If you 
have any Input on this subject please 
write to us - good programming helps 
us all. 


EXAMPLE OF TITLE PAGE PROGRAMMING: 


5 DIM C$(40) 

10 POKE -16298,0: TEXT : CALL -936: 
@TO 20 

11 REM PRINT CENTER ROUTINE 

12 HTAB 20 - LEN (C$)/2 (Use TAB tn 
Integer) 

13 PRINT CS: REM PRINTS LINE 

1% PRINT " ": REM "CONTROL GC” 

15, RETURN 





20 VIAB 51 CS="Title of program”: 
sus 11 


30 CS="BY - authors name": COSUB 11 

40 CS="DATE - donated to library": 
cosuB 11 

85 PRINT : CS="A few lines about 
program": GOSUB 11 

50 VTAB 21: PRINT "PRESS ‘ESC’ TO END" 

55 PRINT "< PRESS THE SPACE BAR TO 
CONTINUE... .>" 

60 IF PEEK (-16384) = 155 THEN (To end 
of program) 

65 IF PEEK (16384) <> 160 THEN 50 

90 CALL -936: POKE -16368,0: REM 
RESETS KEYBOARD 


(This would be the line to start 
program - lines 11 thru 15 could be 
located any place) 


END OF PROGRAM LINES: 
(Refer to part g above) 


LINE ? POKE -16289,0: POKE -16300,0 

LINE ? POKE -16368,0: TEXT : CALL -936 

LINE ? VTAB 10: CS= "* © © THE END © 
©": GOSUB 11: END 


LIBRARY #1 
PURCHASE 


BY KEN SEVERE 


The club now has completed its first 
book of contributed software. The 
book consists of over 350 programs on 
20 diskettes. The diskettes are set 
up by category, f.e. utility, math, 
games, etc. The book {s also made up 
of disk holders, Apple Core binder and 
about 30 pages of information. 


This library #1 can be purchased by a 
member for $150.00. If you are not a 
member add $15.00 and mail with a 
membership form. 


A complete listing of the contents of 
library #1 can be obtained for $1.00 
at any Apple Core meeting. Out of 
town members can obtain It by sending 
the $1.00 and a 9" x 12” self 
addressed envelope with $1.00 postage 
on it to the Apple Core. 


The club 13 now starting library #2 
starting with the software on the 
November 1979 DOM. 





LIBRARY ACCESS 


The APPLE CORE LIBRARY of contributed 
programs {s arranged by general 
categori Wembers Iiving in the 
S.F. Bay area may copy programs from 
the library at the following 
locations: 





Computerland San Francisco 546-1592 
Computerland of Belmont 595-4232 
Computerland of Marin 459-1767 
Computerland of The Castro 864-8080 
Computerland of Los Altos 221-8500 
AIDS 221-8500 


Out of area members can get programs 
from the library through the mails in 
the following manner: 

1. A member is required to donate at 
least one original or public domain 
program (not Copyrighted, please). 

2. Donated programs must be sent on a 
disk or a computer tape placed In 
self-addressed, stamped proper mailer, 
suitable for returning the disk or 
tape. Please use a Program Subaission 
form. Include a note indicating the 
desired volume from the library that 
you would like to have copied. 
Carefully package the mailer and Note: 


CONTAINS LIVE COMPUTER PROGRAMS 00 NOT 
EXPOSE TO X-RAYS OR ELECTRICAL FIELOS 
DO NOT BEND OR FOLD. 


Please follow instructions as we do 
not want to see your disks or tapes 
ruined anymore than you do. Only one 
library disk or tape will be processed 
per month. The DOM (Disk of the 
Month) 1s considered separately. 


The DISK OF THE MONTH is a group of 
recently donated programs or updated 
utilities, ect. It was originated to 
encourage newmembers to be able to 
write programs by having examples to 
study and enjoy. 

Members unable to come to the meetings 
can send in $7.50(US) for the current 
DOH which covers the cost of the disk, 
mailing and handling. Three past 
months are also available for $7.50 
each. 

Members who come to the meetings can 
obtain the same DOM's for $5.00 each. 
Prices are subject to change. 

NOTE: All programs on the DOH's 90 
into the library according to 
category. The stores do not have the 
DOH's on file. 
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LIBRARY BOOK #1 


NOTES 
1 


PROGRAMS WITH (A) AFTER THEM 
REQUIRE THE PROCRAMMERS'S AID CHIP 


PROGRAMS WITH A (P) AFTER THEM WILL 
OUTPUT TO A PRINTER (PRI). 


PROGRAMS WITH A (D) REQUIRE 
A DISK ORIVE. 


ALL APPLE CORE DISKS ARE 3.2 
MASTERS AND WILL ‘BOOT’ ON 
ANY SIZE SYSTEM, 

PRESS ANY LETTER TO CONTINUE 
PROGRAM INDEX 


ENTER THE NUMBER OF THE FIRST PROGRAM 
TO BE LISTED OR PRESS RETURN: 
2 


ENTER THE CATEGORY TO BE LISTED (1-10) 
OR PRESS RETURN TO LIST THEM ALL 


ENTER THE FIRST LETTER(S) OF THE PRO- 
GRAH(S) TO BE LISTED OR PRESS RETURN: 


PROGRAM INDEX 





1 1 DISK OA PROGRAM LIST 
2 1 DISK OA LIST INSTRUCTIONS 
3 1 DISK OA LIBRARY POLICIES 
& 4 DISK 1A APPLE HELLO 
5 1 DISK 1A TEXTFILER 
6 1 DISK 1A TEXTCOPY 
7 1 DISK 1A SWEET 16 DISSEMBLER 
8 1 DISK 1A INTEGER RENUMBER/AP 
9 1 DISK 1A SLOWLIST 
10 1 DISK 1A LAZARUS.A768.L251 
‘V4 DISK 1A CTRUF IND 
12 1 DISK 1A DISK RENUH APPEND 
131 DISK 1A TONY'S SUBROUTINE P 
1 1 DISK 1A APPLESOFT 1 TO 2 CO 
13 1 OISK 1A YES NO AND PAUSE 
16 1 DISK 1A CHRS FUNCTION 
17 1 OISK 1A HFAPSORT 
18 1 OLSK 1A ALPHABETIZE 
19 1 OISK 1A RANDOM SORT 
20 1 DISK 1A B/BSTAT 
21 1 DISK 1A FREE SPACE 
2201 DISK 1A FIX CATALOG 
23 1 DISK 1A DISK MAP 
24 1 DISK 1A IMPROVED CATALOG 
25 1 DISK 1A LOCK DISK 
26 1 DISK 1A DISK PROGRAM ELIMIN 
27 1 DISK 1A DISK DUMP 
2 1 DISK 1A DISK AIDE [APPLE CO 
29 1 DISK 1A DISK AIDE [DOCUMENT 
30 1 DISK 1A DISK AIDE [ HACHINE 
31 1 DISK 14 SUPERCATALOG.O 
B24 DISK 1A SUPERCATALOG.DOC 
nH 1 DISK 1A PASSWORD KEY 
1 DISK 1B DOS UTILITY #1 
4 OISK 18 MENU WRITER ss 


NR te 


DISK 
DISK 
DISK 
DISK 
DISK 
OIsk 
OISK 
DISK 
DISK 
DISK 
DISK 
OISK 
OISK 
DISK 
DISK 
OISK 
DISK 
DISK 
DISK 
DISK 
DISK 
OISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
OISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
OISkK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
OISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 





RANDOM TEST 

MUL TICOPY 

CIDER SQUEEZER 3.1 
SLOW HEM TEST 
FAST MEM TEST 

HEX CODES LIST 
SHORTEN COMMANDS 
QUOTES IN INTEGER 
FORMAT -SUBROUT INE 
APPLETEST 

F 

RND NO FREQ 
MEMORY SPY 

DISC SPEED INFO 
DISC SPEED TEST 
OSPEED.OBJ 

BASIC TED PRINTER 
TED 

TED START 
TED.DISK 

copy FILE 

DISK COPY 3.2 

THE ALCHEMIST V2.7 
ASCII DECODE 
Loop 

AVELAR'S FINANCIAL 
LINEAR PROGRAMMING 
PAYROLL /V% 
NETFLOW COST 
STOCK OPTIONS 
PAYROLL 

TEN KEY ADDER 

TEN KEY NOTES 
LISTS 

AUTO PURCHASE 

APT BLOG PURCHASE 
PORTFOLIO REVIEW DO 
PORTFOLIO REVIEW 
TAX 1040 '79 
DECISION MAKER 
SIMPLER INTEREST 
FUTURE VALUE 
PRESENT AND FUTURE 
HOME HORTGACE 
INVESTMENT EVAL. 
TELEPHONE 

TRAVEL COSTS 
CRITICAL PATH ANALY 
CALL DEBT MARKER 
FED TAX PROGRAM 
FORECASTING 
COMPOUND INTEREST 
NEW CHECKBOOK 
MUSIC FOR CLOSE ENC 
JOHANN SEBASTIAN AP 
APPLEODIAN 
LUDWIG'S FANTASY 
BACH 

SMAl& SMALL WORLD 
ALLEY CAT 

STING HUSIC 

MUSIC WRITER 

THE HART PIANO 
ODE TO JOY 

MUZAK 

SQUARE BACH 

SOUND EFFECTS 
MOZART 2 VOICE 
FLAG 

APPLE PIANO DOC 


106 
107 
108 
109 
110 
wi 
W2 
113 
14 
15 
116 
117 
118 
W9 
120 
vt 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
1d 
142 
143 
144 
145 
146 
147 
148 


150 
151 
152 
153 
154 


156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
71 
172 
173 
174 
175 
176 
W7 
178 
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LIBRARY BOOK #1 (CONT.) 


APPLE PIANO 

ANDY 'S TONES 

PHILA ORCAN 

MULTI TONE 

Loco 

cEeT IT 

PLOT.3-D 

BESSEL DISPLAY 
PLOTS 

PLOT2 

PLOT3 

PLOTS 

PLOTS 

PLOTS 

PLOT7 

PLOTS 

PLOTS 

EASTER EGG(CALL5451 
HENSCHELL HI-RES 
STAR PATTERN 
VINCENT (D) 

HI-RES LOW LEVEL (D 
HT. FUJT (A) 
PAINTER (A) 
SAMPLER (D) 

MEMORY ORGANIZATION 
RANDOM ELEPHANT 
SHAPE MEDLEY 
DRAGON LOAD (D) 
DRAGON (D) 
TERMINAL -W 

SHTABLE LOC (D) 
CHARACTER SHTABLE ( 
ALEX'S CALENDAR PAR 
ALEX'S CALENDAR PAR 
CHOICE FILE (D) 
CHARACTERS.PIC (0) 
SEE PIC (D) 

ROSE O 

HIRES.OBJ (D) 
WASHINGTON (D) 
LINCOLN (D) 
SQUARES 

HI-RES 21 COLORS 
ETCH-A-SKETCH 
IMPOSSIBLE FIGURE 
TYPING PRACTICE 

CAL DRIVER TEST 24K 
HORSE TRAINER 
MORSE CW 

FLASH CODE 

FLASH CARD 

NAME STATES 
STATES/CAPITALS 
COLOR MATH 

HATH TUTOR 
ECHOCARDIOGRAPH 
INTGER INSTRUCTION 
TITRATION 

TOP DOWN PROGRAMMIN 
CONVENTIONS 
QUIZBUILD (D) 

quiz (0) 

SEQUENCE .EASY 
SEQUENCE . HARD 

US. CAPITALS 
EUROPEAN .CAPITALS 
ASIAN.CAPITALS 
HISSPELL 
SHAKESPEARE 

BABY. ADULT 

VICTIM. KILLER 
CANADA. PROV “ 


179 
180 
181 
182 
1863 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
2 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 


MAN 
MAAS SANs 
ANADAARAAAAAAAARARAAH 
AAAARVEUVVUY 


DISK 
DISK 
DISK 
DISK 
DISK 
OISK 
DISK 
DISK 
DISK 
DISK 
DISK 
OIsk 
DISK 
DISK 
DISK 
DISK 
DISK 
OIsK 
bISK 
DISK 
DISK 
DISK 
OIsK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
OISsK 
DISK 
oIsk 
DISK 
DISK 
DISK 
DISK 
oIsK 
DISK 
OISK 
DISK 
OIsk 
DISK 
vISK 
OIsk 
DISK 
DISK 
O1sk 
OISK 
OISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISC 
Disc 
oisc 
DISC 
DISC 
DISC 
DISC 
DISC 
vIsc 





AMERICAN.CAPITALS 
MALE «FEMALE 
PRESIDENTS 
AFRICAN.CAPITALS 
OPPOSITES 
ELEMENTS 

DOT WORLD 

COLOR SHOWS 

ROD'S COLOR PATTERN 
SUPER KALEIDOSCOPE 
GREAT AMER. PROB.MAC 
COLOR GRAPHICS 
COLOR SKETCH 
COLOSSUS 
T.V.PATTERN GENERAT 
BIT BUCKET 

TITLE PROGRAM 
COLOR STROBE 
ENTERPRISE 

PACE 142 

FWORMS (0) 

FAST WORMS (D) 
WORMS (D) 

BEEP (0) 

A222. 

ANIMATION 

OBJECT DRAWING 
DANCING BUTTERFLIES 
MOD GREETING 
RANDY'S PATTERN 
INFINITE NUMBER OF 
POETRY 

PLAYBOY BUNNY 
HAIKU POETRY 

TEXT BIORHYTHM 
APPLE POOP PLOT 
BUZZWORD 

LOVE 

HEBREW POSTER 

DAY OF WEEK 
MADLIB 

SLOT TEXT 

SLOT DICE 
PLANTMAN 

MADAME DUPRE 
BIORHYTHM FOR PRINT 
OREGON TRAIL 
PLANTS & LEMONADE 
STARTREK 8K 

LUNAR LANDER 

TE XTBLACKJACK 
COIN TOSS 

LUNAR 

GAMES SULLIVAN 
BACELS 

WORLD POWER 
KINEMA 

CRYPTOGRAM 
DYNASTY 

MATCHGAME 

APPLE LEAF GAME 
DEPTH CHARGF 


ELIZA 

TEXT CHESS 
GUESS A BHP 
TIC TAC TOF 
BOXING 
BASEBALL 
INTERSTELLAR 
CHASE 

SWORDS & SORCER 
coOLF 

SEARCH 
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252.7 DISC 7C — FIBOSTRAT 304 8 DISK 

253.7 DISC 7C — PETALS/ROSE 305 8 = DISK 38 SLOTS. PADDLES 

258.7 DISC 7C DOUBLE -ODDS CRAPS 306 8 DISK 8B SNOW RACER 

235.7 DISC 7C TEXT OTHFLLO 307 8  O1SK 8B AIRPORT 

256.7 DISC 7¢ — KENO 20 308 8 DISK 8B CHECKERS 

2577 DISK 7D REVERSE 309 8 ISK 8B FREUD 

2567 ~~ DISK 70 ATOM 20 310 8 DISK 88 -HANGPERSON 

2597 DISK 70 FOOTBALL 311 6  OISK 88 GO BACK 

260 7 DISK 70 SUPER HOCKEY 312 8 DISK 8B SHOOT STARS 

261.7 DISK 7D SLALOM 313.8 DISK BC STARSHIP ATTACK 
262.7 DISK 70 STAR LANES 314 8 DISK 8C HANGHAN 

2637 DISK 70 STAR LANES DOC 315 8 DISK 8C TARGET SHOOT 

264 7 DISK 70 THAT'S HOLLYWOOD IN 316 8 DISK 8C INSTANT LOTTERY 

265 7 DISK 7D THAT'S HOLLYWOOD 317 8  OISK 8C DODGE BALL 

2667 DISK 70 DRIVER 318 8 OISK BC DNA 

2677 «DISK 7D TV TRIVIA 319 8 DISK BC CARWASH 

2657 OISK 7E NAME FREAK 320 6 DISK 8C JUGGLE 

2697 «DISK 7E 19 TEST 321 8 DISK 8C ANDY'S MAZE RACE 
270.7 «DISK 7E PIZZA 322 8 DISK 8C STARWARS APPLE 
271.7 ‘DISK 7E BATTLE SHIP 323 6 DISK 8C_ LIFE #1000 

272.7 DISK 7E  JIMMIES ODD-EVEN 324 9 DISK 9A CALCULATOR 

2737 -DISK 7E SNOOPY POSTER 325 9 DISK 9A REACTANCE CALCULATI 
2787 «DISK 7E RACECAR 326 9 DISK 9A TRANSISTOR PARAMETE 
2757 “DISK 7E FLIPPER 327 9 DISK 9A SIN PLOT 

276 8 UISK 8A ACEY_DUCY 328 9 DISK 9A METRICS AREA 

277.8 DISK 8A I CHING 329 9 DISK 9A METRICS LENGTH 

278 8 DISK 8A STAY AFLOAT 330 9 DISK 9A METRICS VOLUME 

279 8 DISK 8A TRAP 331 9 DISK 9A METRICS KITCHEN 

260 6 DISK 8A COOTIE 332 9 DISK 9A METRICS TEMPERATURE 
281.8 DISK 8A SKI RACER 333 9 DISK 9A PERMUTATIONS-COMBIN 
262 8 DISK 8A ONE PLAYER PONG 334 9 DISK 9A BINOMIAL DISTRIBUTI 
263 6 DISK 8A PONG 2-D 335 9 DISK 9A PRIME FACTORS OF IN 
268 8 DISK BA UPER BRICK-OUT 336 9 DISK 9A o 

265 8 DISK BA PHILA, PINBALL 337.9 DISK 9A FAST FOURIER TRANSF 
286 8 DISK 8A BIORHYTHMS 338 9 DISK 9A FAST FOURIER TRANSF 
267 § DISK 8A FD'S LIFE 339 9. DISK 9A TOTAL 

285 6 DISK 8A CONWAY'S LIFE 340 9 DISK 9A LOOP_ ANTENNA 

289 § DISK 6A GIANT TYPEWRITER 341 9 DISK 9A XLINE IMPEDANCE 
2906 DISK 6A HUSTLE 342 9 DISK 9A NUMBER BASE CONVERT 
2916 DISK 8A DEPTH CHARGE 343 9 DISK 9A HEX-DEC CONVERTER 
292.8 DISK 8A SUB KILLER 344 9 DISK 9A CALC PI TO 1000 DIG 
2938 DISK 8A GAME OF LIFE 345 9 DISK 9A LONG DIVISION 

294 § DISK 8B DRAGON HAZE 346 9 DISK 9A DIVISION 

295 6 DISK 8B BREAKOUT/B 347 9 DISK 9A MULTIPLY 

296 8 DISK 88 DUCK SHOOT 348 9 DISK 9A MATH PRACTICE 

2978  O1SK $8 BINGO CARD 349 9 DISK 9A EXTERIOR BALLISTICS 
298.6 «© OISK 8B = BINGO 350 9 DISK 9A HARMONIC ANALYSIS 
299 6 DISK 8B AUTOMATIC BINGO 351 9 DISK 9A QUADRATIC SURFACE 
300 § DISK 6B THEIF 352.9 DISK 9A HEX CONV. 

301 8 DISK 88 MISSION 353 9 DISK 9A NOTCH FILTER 

302 8  OISK 8B TORPFOO RUN 354 9 DISK 9A GREAT CIRCLE 

303 8 DISK 8B SKUNK 
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An Infinite Number 
Of Reasons To Shop At 


ComputerLand of Marin 


Once you have made your decision to buy an Apple 
Computer, now comes the big question...where? There 
is alot more to buying a computer than just taking it 
home and plugging it in - that’s where we come in: We 
talk to you one on one, spending all the time you need 
to help you select a system. We stock everything from 
Apple Computers to Zilog books to make your selection 
easier. Our service doesn't stop there - we unpack your 
new computer and run test after test to assure it is in 
good working order. You just get it home, and now you 
have a thousand questions, you really don’t know what 
to do next... call or drop in, that’s what we're here for. 
We were all beginners once and the only unanswered 
question is one you don’t ask. Should something stop 


working (it can happen), we have a full-time technician 
to repair your maching in and out of warranty! 


Last... but not least, are the people you deal with. They 
are not on commission, and all are there to help you!! 


COME IN... WE'RE SURE YOU WILL LIKE WHAT YOU 
SEE. 


Computerland 


OF MARIN 


1930 4th ST.,SAN RAFAEL, CA.94901 (415) 450-1767 
Open Tues-Fri 10-7, Sat. 10-5 and Mon. by appointment. 





CHECKBOOK 





THIS CHECKBOOK PROGRAM IS BASED ON THE 
ORIGINAL FROM THE APPLE COMPUTER 
COMPANY. IT HAS HAD SO MANY PATCHES. 
PUBLISHED IN SO MANY NEWSLETTERS THAT 
WO ONE SEEMS TO KNOW WHAT WORKS AND 
WAT DOESN'T. THIS LISTING OF THE 
ENTIRE PROGRAM WITH ALL THE FIXES FOR 
DISK AND PRINTER WE HOPE WILL TAKE 
(CME OF THE PROBLEM. 


The SF APPLE CORE wishes to thank 
Howard Cannes for the disk 
nodificat fen Silverman for 
fying It for proper peinter output 
and last but not least to John Couch 
pple Computer Company for 
peralssion to peint the program. 


List. 


0 AsO: DIM C$(12),0(13),NS(40 
),RA(13),R(13),LS(80): PRINT 
iNT 

















ps 204,252: POKE 205,8: GOTO 
1 IF QteS+S>HM THEN 20000: FOR 
JO 10 S:A=D(J): POKE CMeJe 
4-0, PEEK (2052): POKE OMeJe 
J, PEEK (2053): NEXT J:CH=0M+ 
SoS: RETURN 
2 FOR Je0 10 S: POKE 2052, PEEK 
(PeJeJ-2): POKE 2053, PEEK 
(PeJoJ-0):R(J)2A: NEXT J: RETURN 
3 BOM=CM:CM=P-0: GOSUB 0:CH=BCH: 
RETURN 
4 FOR Q=B TO Be LEN(CS)/2-0: POKE 
2052, ASC(CS(Q-B+Q-B+0)): POKE 
2053, ASC(CS(Q-B+0-B+2)):0( 
Q)sA: NEXT Q: RETURN 
5 FOR Q2B 10 BeSL/2-0:A=R(Q): 
POKE 2059+0-B+Q-B, PEEK (2052 
): POKE 2060+0-8+0-8, PEEK 
(2053): NEXT Q: POKE 2059+Q- 
8+0-8,0: RETURN 
6 CAL -936: TAB (20- LEN(NS) 
(12): PRINT NS: PRINT "CHK# MO/DA 
IMR Toss: TAB 30: PRINT "AMOUNT 
}: RETURN 
7 We ts co THEN CALL -1008 
FOR AsO TO 4: IF ABS (C)>= 
10 A THEN CALL -1008: NEXT 
‘At IF 1<Z AND E>15 THEN GOSUB 
36: PRINT Cz: RETURN 
WO F I<2 OR FZ THEN POKE 50, 
127:Cz ABS (I): GOSUB 7: PRINT 
"3: IF ABS (F)<10 THEN PRINT 
PRINT ABS (F);: POKE 50 
1255:$G=0: RETURN 
n PP oSoS:Ex6:C2A(0) 2 TAB O: CALL 
7868: GOSUB 7:E=7:C=R(2)/256 
+ QOSUB 7: PRINT "/";:A=R(2 
) WOO 256: IF AC10 THEN PRINT 
PRINT A3"/"; 
W2 Te ABS (R(3) MOD 256): IF I< 
20,TEW PRINT * ni: PRINT Ty 
}4:Sk=T: GOSUB 5: PRINT 
‘VeTsR(10):F eR( 11): GOTO 























10 

"CALL -936: TAB (20- LEN(NS) 
22): PRINT NS: PRINT "CHKE 
AYR 102"): TAB (27): PRINT 
“AMOUNT BALANCE"; :L3: RETURN 





40/0A 


‘V% [sZ:F eZ: INPUT "2",LS: IF NOT 
LEN(LS) THEN 14: IF LS$(0,0) 
@"-" THEN 15: IF LEN(LS)=0 THEN 
VWrLSeL$(2, LEN(LS)):SC=-0 

FOR J=O TO LEN(LS):A= ASC(LS 
(J))-176 IF Az28 THEN Az=t: 
A=(A<>31)*A: IF ACZ OR A>9 OR 
123275 THEN 16:1=1*10+A*SG: 


NEXT J: RETURN 

16 IF A#-2 THEN 18: IF LEN(LS) 
J THEN RETURN : FOR KzJ+0 TO 
LEN(LS):A= ASC(LS(K))-176: IF 
ACZ OR AD9 THEN 18:F =F #10+A® 
SG: NEXT K 

17 IF JoO= LEN(LS) THEN FaF*10 
+ IF F299 THEN 14: RETURN 

18 INPUT "2",LS:A= LEN(LS): IF 
A>=S_THEN A=121 IF NOT A THEN 
18:CS$=L$(0,A) 

19 IF LEN(CS)<12_ THEN CS( LEN( 
C$)o1)=" ": IF LEN(CS)<12 THEN 
19:B=4: COSUB 4:SG=0: IF C$ 
(0,0)="#" THEN SG=-0: RETURN 

20 INPUT "2",CS: IF LEN(CS)>4 THEN 
CS$=C$(0,4) 

21 IF LEN(CS)<& THEN CS( LEN(CS 
)+0)=" ": IF LEN(CS)<& THEN 
21:B212: GOTO & 

22 PRINT *";1 CALL -956: RETURN 


ry 


23 IF PEEK (-16384)<128 THEN RETURN 
+ POKE -16368,0: POP :L=L+0: 
GOTO 1835 

26 IF PEEK (-16384)<128 THEN RETURN 
+ POKE -16368,0: POP :L=L+0: 
coro Q 

30 PRINT : PRO: VTAB 22: PRINT 
"HIT SPACE BAR TO STOP LISTING" 
2 VTAB L: PROPS: RETURN 

36 CALL -1008: IF [=BALI THEN 





97 Az=Q+2*(Q>0)+(Q>2)+12#(Q>3)+ 
29(Q>4) +49(Q>5): RETURN 

100 FOR C=0 TO S:RA(C)=R(C): NEXT 
C:1=P: RETURN 

1000 021:2=A:S=13:LM=3000:CM=L M- 

0: POKE 2052, PEEK (202): POKE 
2053, PEEK (203):HM=A: IF AC 
Z THEN HM=32767 

1035 COTO 1050 

1040 DEL O 

1050 POKE 8,32: POKE 9,12: POKE 
10,253: POKE 11,133: POKE 12 
+255: POKE 13,96 

1090 DS="": REM CTRL D 

1100 TEXT : PRINT DS;"PR#O": CALL 
-936: PRINT "APPLE COMPUTER INC- 
~----CHECKBOOK 11" 

1105 TAB 12: PRINT "CHECKING ACCOUNT" 
: PRINT : TAB 6: PRINT “DATA BAS 
E MANAGEMENT SYSTEM" 

1106 PRINT : PRINT "TO PRINT OUTPUT, 
TYPE ‘P' BEFORE THE": PRINT 
"NUMBER 2,3,4 OR 6" 

1110 PRINT : PRINT " 1. ENTER DATA" 
: PRINT " 2. BALANCE” 

1115 PRINT " 3. RECONCILE TO BANK ST 
ATEMENT*: PRINT " &. LIST AND/O 
R CHANCE DATA" 

se 


1120 PRINT “ 5. SORT" 
1125 PRINT " 6. SEARCH": PRINT 
"7. DELETE RECONCILED RECORDS” 


1130 PRINT " 6. OELETE UNRECONCILED 
RECORDS": PRINT " 9. CHECK FILE 
LENGTH": PRINT "10. SAVE DATA 
TO DISK": PRINT "11. QUIT" 


1131 PREO 

1132 PRINT : PRINT LS 

1133 A=0:Q=0 

1135 eral + PRINT : PRINT "WHICH 2" 


1140 i vpeeK (-16364): IF A<128 THEN 
1140: IF A=208 THEN POKE -16368 
40: TAB 7: PRAO: INPUT Q 

1148 PREO 

1145 IF Q<0 OR Q>11 THEN 1100:PS= 
0: IF A<>208 OR Q<2 OR Q=5 OR 
Q>6 THEN 1150: PRINT : INPUT 
"WHAT SLOT IS YOUR PRINTER IN " 


+PS 

1189 PR#O 

1150 GOSUB 0*200+1000:PS=0 

1155 PRINT DS;"PR#O": GOTO 1100 

1200 CALL -936: PRINT : PRINT “00 YOU 
WANT TO ENTER OATA FROM THE™ 
: PRINT "KEYBOARD, DISK, OR TAPE 
2(K, D, OR T)2";: INPUT CS 

1208 IF CS="D" THEN 1300: IF CSz 
"T" THEN 1320 

1208 PRINT "IF YOU WANT AUTOMATICALLY 
ASSIGNED CHECK#'S ENTER THE STA 
RTING #, IF YOU WANT":S2=2 

1212 INPUT "TO ENTER THEM YOURSELF, E 
NTER A '0'",S1: IF S1<Z THEN 
1212: IF $13>Z THEN S220 

1216 PRINT : PRINT "TO ENTER A DEPOSI 
T, TYPE A '#! SIGN FOR THE FIRST 
CHARACTER OF THE 'TO:' FIELD" 
+ PRINT 

1220 PRINT "WHEN YOU'RE THROUCH ENTER 
ING DATA, ENTERA '-1' FOR CHK# 0 
R MO TO RETURN TO THE HENU.” 
: PRINT : GOTO 1228 

122% PRINT "READY TO GO TO THE NEXT P 
AE 2 





1228 INPUT "HIT "RETURN' KEY WHEN REA 
DY..",LS. 

1232 COSUB 6 

1236 IF NOT S2 THEN INPUT S1 

1260 C=S1: VTAB L: CALL -958: IF 
C<Z_THEN RETURN : IF C>9999 
THEN 1244:D(0)=C:E=4: GOSUB 
7: GOTO 1248 

124% PRINT "CHECK # TOO HIGH": GOTO 
1236 

1248 INPUT C: VTAB L: TAB 5: CALL 
1-958: IF C<Z THEN 1100: IF 
CxZ OR C>12 THEN 1252:£=7: GOSUB 
7: PRINT "/";3D(2)=C#256: GOTO 
1256 

1252 COSUB 22: COTO 1248 

4256 INPUT C: VTAB L: TAB 9: CALL 
=958: IF C¢O OR C>31 THEN 1260 
2€210: COSUB 7: PRINT "/"5: 
D(2)=D(2)+C: GOTO 1264 

1260 COSUB 22: GOTO 1256 

126% INPUT C: VTAB L: TAB 121 CALL 
-958: IF C<Z OR C>99 THEN 1268 
2£=13: GOSUB 7:D(3)xC: GOTO 
1272 
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1268 GOSUB 22: GOTU 1264 

1272 GOSUB 18: VTAB L: TAB 14: CALL 
958; PRINT " "5C: IF c$( 
1,1)¢"¢" THEN 1260 

1276 IF S2 THEN $12S1-1 

1280 GOSUB 14: VIAB L: TAB 27: CALL 
=958:D(10)=1:D(11) =F :E=32: GOSUB 





10 

1264 COSUB 20: VIAB L: TAB 36: CALL 
938: PRINT " ";CS; 

1288 COSUB 4 

1292 L=L+0:S1=51+0: GOSUB 0: GOTO 
1236-12*(L>22) 

1300 CALL -936: PRINT "THE FOLLOWING 
CHECKBOOK DATA FILES ARE": PRINT 
"ON THIS OISKETTE:" 

1301 PRINT "";"CATALOG” 

1305 PRINT : POKE 54,37: POKE 55 
13: POKE 2052, PEEK (977): POKE 
3053, PEEK (978) 

1315 PR#O 

1320 PRINT : INPUT “REPLACE CURRENT D 
ATA OR APPEND TOIT (R/A) 2" 





»LS 

1325 IF L$="R" THEN 1335: IF LS# 
"A" THEN RETURN 

1330 BCM=LH:LM=CH+0: GOSUB 1335: 
LM=BCH: RETURN 

1335 IF CS="T" THEN 1350: PRINT 
WHAT IS THE NAME OF YOUR FILE?" 
: INPUT LS: PRINT "";"BLOAD™ 
4L$5".*,A2098":B=LM+A: IF & 
HM OR A<Z THEN GOSUB 20000: 






CHB 

1338 CALL -936 

1360 PRINT “LOADING IN FILE "ENS 

1342 PRINT : PRINT 

1345 PRINT : PRINT "FROM CHECK @” 
yD(5)3" TO CHECK #";D(6): PRINT 
"MS"BLOAD ";L$;",A™;LM: FOR 
WR=1 TO 500: NEXT WR: RETURN 


1350 POKE 60,Z: POKE 61,8: POKE 
62,102: POKE 63,8: POKE 2,134 
: POKE 0,255: POKE 2,32 

1355 POKE 3,253: POKE 4,254: POKE 
5,166: POKE 6,255: POKE 7,96 


1360 INPUT "START PLAYING TAPE, THEN 
HIT 'RETURN'",LS: CALL Z:B= 
LMeA: IF B>HM OR A<Z THEN GOSUB 


20000 

1365 CM=B: PRINT "READING IN FILE '" 
sNS3"'": PRINT "FROM CHECK #” 
40(5)3" TO CHECK#™;0(6) 

1370 POKE 60,LH HOD 256: POKE 61 
yUM/256: POKE 62,CM MOD 256 
+ POKE 63,CM/256: CALL Z: RETURN 


1400 Pal M:T26:T1=28:H=Z 

1402 INPUT "ENTER STARTING CHECK @” 
yC: PRINT "ENTER STARTING BALANC 
ERs tae GOSUB 14:BALI=I:BALF= 


1405 PRINT "PRE" ;PS 

1410 GOSUB 2: IF P>=CM THEN 1700 
:P=PeSeS: IF R(O)<C THEN 1410 
2P=P-S-S 

1415 GOSUB 13 

1420 PRINT “STARTING BALANCE - 
"526237: 1 <BALI:F sBALF: GOSUB 


10 
1425 IF PS=0 THEN GOSUB 30: VTAB 
Lo 





1927 IF PS THEN PRINT 

1429 IF PS>0 THEN WW=940: IF PS< 
1 THEN WW=19 

1430 FOR L=3 TO WW: IF P>CM THEN 
1700: GOSUB 2 

1435 GOSUB 11 

1440 PATER (IO) DHE Oa 
W 

1445 BALI=BALI+ SGN (BALF)*( ABS 
(BALF )>99):BALF=BALF HOD 100 


1450 IF ABS ( SGN (BALI)- SGN (BALF) 
)<>2 THEN 1460 

1455 Az SGN (BALI):BALI=BALI+ SCN 
(BALF) :BALF=BALF+100* SGN ( 


A) 

1460 IF H THEN RETURN 

1465 £237:1=BALI:F=BALF: GOSUB 10 
:Q=1470: GOSUB 24: IF PS THEN 
PRINT : NEXT L 

1468 PR#O 

1470 PR#O: PRINT : PRINT "HIT ‘ESC’ T 
0 RETURN TO THE MENU, 'RTN'™ 
: PRINT "TO CONTINUE BALANCING" 
2 CALL 6:A= PEEK (255)-128 
: IF As27 THEN RETURN 

1471 IF PS>O THEN GOTO 1425: GOTO 





1425 
1600 P=LM:1=6:11=29:H=0:BALI =2:BALF= 


Zz 

1605 INPUT “ENTER STARTING CHECK #" 
,C: PRINT "ENTER BEGINNING BALAN 
(CE FROM BANK STATE-MENT"; :SG= 
0: GOSUB 14:RBI=I:RBF =F 

1606 PRINT "PR#™;PS 

1610 GOSUB 2: IF C>=C4 THEN 1700 
:P2P4SeS: IF R(0)<C THEN 1610 
2P=P-S-S 

1615 


GosuB 13 
1620 PRINT "STARTING BALANCE --------~ 
= "5 26.237: L2RBI:F =RBF @osuB 


10 

1625 VTAB 20: TAB O: PRINT "HIT SPACE 
BAR IF CHECK IS LISTED ON" 
+ PRINT "STATEMENT, *RTN' IF NOT 

*ESC' TO STOP": VIAB L+0 

1630 FOR L=3 TO 16+16*(PS>0): IF 
P>=CM THEN 1665: GOSUB 2 

1635 GOSUB 11:0=R(3)<Z: IF Q THEN 
1645 

1640 CALL 6:A= PEEK (255)-126: IF 
‘Au27 THEN 1665: IF An 13 THEN 


1695 
1685 RBI=RBI-R(10):RBF =RBF-R(11) 


1650 RBI=RBI+ SCN (RBI)*( ABS (RBF) 
>99):RBF=RBF MOD 100: IF ABS 
(SGN (RBI)- SCN (RBF))<>2 THEN 


1660 

1655 A= SGN (RBI):RBI=RBI+ SGN ( 
RBF ) :RBF =RBF +100* SGN (A) 

1660 A=- ABS (R(3)): POKE P-21, PEEK 
(2053): POKE P-22, PEEK (2052 
):1<RB1:F <RBF :E=37: GOSUB 10 
2Q=1665: GOSUB 24 

1661 IF PS THEN PRINT : NEXT L 

1665 CALL -9! MINT 

1670 PRINT "SUM OF DEPOSITS NOT CREDI 
TED ON STATE- MENT (+) & CHECKS 
STILL OUT (-)";:T=BALI1F =BALF: 
£=37: GOSUB 10 

1675 R(10)=-RB1:R(11)=-RBF: COSUB 
1440: 1 =BALT:F =BALF:R(10)=RBI: 
R(11)=RBF: COSUB 1440 

eo 





1680 PRINT "BOOK BALANCE AT CHK #* 
3R(1);" IS-- 2237: GOSUB 
10: CALL -958: IF P><CW THEN 





1700 

1685 PRINT : PRINT “HIT 'ESC' TO RETU 
RN TO THE MENU, 'RTN'": PRINT 
"TO CONTINUE RECONCILING"; : 





CALL -958 
1690 CALL 6: IF PEEK (255)-126:27 
THEN RETURN : GOTO 1615 
1695 PRINT * "y: GOSUB 1440 


: GOTO 1661 

1700 PRINT : CALL -958: PRINT DS 
s"PROO": PRINT "THAT'S ALL THE C 
HECKS IN MEMORY." 

1705 PRINT "HIT ANY KEY TO GET BACK T 
© THE MENU.."y: CALL B:HsZ: 


RETURN 

1800 INPUT “ENTER THE CHECK NUMBER YO 
U WOULD LIKE ©THE LIST TO START 
WITH" ,C 

1605 P=LM: PRINT "PR#";PS 

1810 COSUB 2: IF P>=CM THEN 1660 
:P2P+SeS: IF R(O)<C THEN 1610 
1PaP-S-S 

1614 IF PS<1 THEN Ww=19: IF PS>0 
THEN Ww=940 

1815 GOSUB 6: GOSUB 30:T=12:71=32 
: FOR Lx} TO we: IF P>=CH THEN 
1825 

1820 COSUB 2: PRINT : IF PS<1 ‘THEN 
VTAB L: GOSUB 11:SL=8:B=T: cosuB 
Sz PRINT " "3C$;30=1825: cosuB 
26: NEXT L 

1625 PRINT : IF PCCM THEN 1630 

1826 PRINT “THAT'S ALL OF THEM!" 





1827 PREO 

1628 INPUT “HIT ‘RETURN’ TO GET BACK 
TO HENU",LS. 

1829 RETURN 

1830 PR#O: PRINT “THERE ARE WORE CEC 
KS IN MEMORY, NOW..." 

1835 PRINT “'H’ HAKE CHANGES, 'L' LIS 
T FRM NEW CHKA": CALL -958 

1640 PRINT "'ESC’ RTN TO HEMU, OR ‘RT 
NY CONTINUE": PRINT "LISTING" 


i 
1841 CALL B:A= PEEK (255)-128: PRINT 
1ee5 IF Azi3 THEN 1615: IF A=27 THEN 
RETURN : IF As77 THEN 2405: 
IF Az76 THEN 1850: GOTO 1641 
1850 CALL -936: GOTO 1800 
1855 RETURN 
1860 PRINT : PRINT "HO CHECKS IN 10 
RY": FOR Net TO 300: NEXT Nr 
GOTO 1100 
2000 CALL -936: VTAB 5: PRINT “YOU MA 
Y SORT ON ONE OF THE FOLLOWING:" 


2005 PRINT 

2010 PRINT “1. CHECK @": PRINT *2. Ov 
TE": PRINT “3. 'TO:' FIELD" 
: PRINT "&, AMOUNT": PRINT 
"5. CODE": PRINT 

2015 INPUT “WHICH ",Q: IF (<0 OR 
Q>5 THEN 2015 

2020 POKE 786, 136+(Q=3 OR Qx5)*64 


2025 GOSUB 97: POKE 2,A:0=Q+(Q2) 
OR Q=5)-(Q03 AND 045): 
97: POKE 3,4+255® NOT A 

2030 FOR P1=LM TO C4-S-S STEP S+ 
S:1=P1: POKE Z,P1 MOD 256: POKE 
0,P1/256 
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2035 FOR P2=P1+S+S TO CH-S-S STEP 
SeStAaP2: CALL 768 

2080 NEXT P2:1= PEEK (0)+ PEEK ( 
19256 

2065 Pal: GOSUB 2: GOSUB 100:P=P1: 
COSUB 2:PsI: FOR C=O TO S: 
D(C)=R(C): NEXT C 

2050 COSUB 3:P=P1: FOR CxO TO S: 
D(C)=RA(C): NEXT Cs GOSUB 3 


2055 PRINT “SORTING ";: NEXT Pt: 

PRINT "DONE! !I": FOR CxO TO 
700: NEXT C: RETURN 

2200 Pal H:H=O: CALL -936: VTAB 5S 
+ PRINT "YOU HAY SEARCH BY ONE O 
F THE FOLLOWING:": PRINT : PRINT 
"1, CHECK NUMBER": PRINT "2. HON 
TH": PRINT "3. DAY" 

2205 PRINT "&, YEAR": PRINT "5. ‘TO:* 
FIELD": PRINT "6. AMOUNT": 
PRINT "7. CODE" 

2210 PRINT :BALI=2:BALF =Z 

2215 INPUT “WHICH FIELD BY NUMBER ” 
Plz IF F1<0 OR F1>7 THEN RETURN 
+ GOSUB 22606F 15: PRINT “PRE” 
3PS. 

220 COSUB 6 

225 IF P>=CM THEN 2240: GOSUB 2 
+ QOSUB 2295+F 1°5: IF U THEN 
@SUB 2230:P2P+S+S: GOTO 2225 











2290 T212:T1232: PRINT : VTAB L: 

TAB 0: GOSUB 2: GOSUB 11:SL= 

Bi SUB 5: PRINT " ";CS 

Lal «0:P=P-S-S 

2232 BALI <BAL +R (10) :BALF 2BALF «R( 
11): OSUB 1845 

2230 IF PS THEN RETURN 

2235 IF L<23 THEN RETURN : PRINT 
SHIT 'ESC* TO CET BACK TO THE ME 
WW, 'RTN'TO CONTINUE SEARCHING.” 
i: CALL 8: IF PEEK (255)-128 
=27 THEN RETURN 

2236 COSUB 6: RETURN 

240 PRINT : TAB 21: PRINT "TOTAL™ 
HERR TBALTIFSBALF sua 






10 
2S ing + PRINT "THAT'S ALL OF THE 
1" 


250 PRINT : PRINT D$;*PRAO" 

255 INPUT “HIT ‘RETURN’ TO GET BACK 
To THE HEW",LS 

2260 RETURN 


265, aun “CHECK MUMBER™;: GOTO 


210 PRINT “MONTH; GOTO 2335 

2275 INPUT "INPUT HONTH, DAY, YEAR. . .* 
+4,0,0(3): IF ACO OR A>=S OR 
QO OR 31 THEN 2275:D(2)= 

2 A°2566Q:_ RETURN 

2EO PRINT “YEAR"; : GOTO 2335 

285 fan sto FIELD LOOKING FOR" 
i: O10 18 

2250 PRINT "AMOUNT LOOKING FOR" 
+ QOSUB 14:0(10)=1:0(11) =F: 
RETURN 





ass PRINT “CODE LOOKING FOR 


om U:0(0)2R(0): RETURN 
don, UeDU2)=R(2) /256: RETURN 
10 Us(0(2)=R(2) AND D(3)= ABS 
ays (RG) MOO 256)): RETURN 
U(0(3)= ABS (R(3) MOD 256) 
Ds RETURN 


2320 Us0: FOR Jos TO 9:U=(U AND 
D(J)=R(J)): IF U THEN NEXT 
J RETURN 

2325 Ux(D(10)=R(10) AND D(11)=R( 
11): RETURN 

2330 U=(D(12)=R(12) AND D(S)=R(S) 
): RETURN 

2335 INPUT ™ LOOKING FOR™,D(F1-( 
F1>2)):_ RETURN 

2800 GOTO 3600 

2405 VTAB L: TAB O: CALL -958: PRINT 
PRINT "YOU HAY NOW: 1. CHANG 
E ABOVE DATA" 

2810 PRINT * 2. DELETE 
BY CHECK @” 

2415 PRINT 

2620 INPUT "WHICH ",Q 

2825 IF Q=2 THEN 3400: IF Q=1 THEN 
2430: GOSUB 22: GOTO 2405 

2830 VTAB L+O: TAB O: CALL -958: 
PRINT “TYPE ‘CTRL' & DESIRED KE 
Y_STHULTANEQUSLY"; 

2635 PRINT "A:ADVANCE — B=BACK UP" 


2440 PRINT "U=UP D=DOWN" 5 


2645 TAB 27: PRINT “E=EXIT TO MENU" 
: PRINT "*HIT SPACE BAR BEFORE E 
NTERING NEW DATAS"; 

2450 P=P-S-S:L=L-0: VTAB L:S120 

2455 CALL PEEK (255): IF A> 
154 THEN 2490: IF A=129 THEN 
2860: IF A=130 THEN 2465: IF 
A=132 THEN 2875: IF A=133 THEN 





2480 

2456 IF Az149 THEN 2485: IF A=144 
THEN 1815: GOTO 2455 

2460 IF S1=7 THEN S1=Z:S12S1+0: GOTO 
2470 


2865 IF $120 THEN 2455:51=S1-0 

2870 TAB S1+3*(S1=2)+5*(S1=3)+7* 
(S128) +9°(S125)4219(S126) +29 
*(S1=7): GOTO 2455 

2475 IF L217 THEN 2655:L=1+0: VTAB 
LrP=P+S+S:SG=0: GOTO 2455 

2480 RETURN 

2485 IF L=3 THEN 2455:L=1-0: VTAB 
L:PsP-S-S:SG=0: GOTO 2455 

2490 GOSUB 2: FOR J2O0 TO S:D(J)= 
R(J): NEXT J:D(3)= ABS (R(3 
)): POKE 35,L: POKE 34,L-0: 
GOSUB 2500+S1*5: POKE 35,28 








1 POKE 34,2 

2495 VTAB L: GOSUB 3: FOR J=0 TO 
S:R(J)2D(J): NEXT J: GOSUB 
11:SU28:B=T: GOSUB 5: PRINT 
7 "568; 

2500 VIAB L:PsP-S-S: GOTO 2460 

2505 INPUT D(O): RETURN 

2510 INPUT A:0(2)=D(2) MOD 256+A® 
256: RETURN 

2515. INPUT A:D(2)=D(2)/256*256+A: 
RETURN 


2520 INPUT 0(3): RETURN 
2525 GOTO 18 
2530 GOSUB 14:D(10)=1:0(11)=F: RETURN 


eo. 


2535 COTO 20 

2600 GOTO 3625 

2605 PRINT "WHAT IS THE NAME OF THIS 
FILE?": INPUT NS 

2610 P=iH: GOSUB 2 

2615 0(5)=R(0):P=CH-S-S+0: COSUB 
2:0(6)R(0) 

2620 A=CH-LM: IF ACZ THEN RETURN 
: PRINT "";"BSAVE "3NS;".*,A2088 
L103" 

2625 PRINT "™;"BSAVE" ;NS5",A"5LM; 
",L";As0: RETURN 

2800 A=(CH-LM+0)/S/2:B=(HM-LH-O) 
Is/2 

2810 PRINT As" RECORDS USED OUT OF ” 
3B" TOTAL": PRINT "LEAVING 
3B-A;" UNUSED.": POP : GOTO 
1135, 

3000 GOTO 2605 

3200 INPUT "DO YOU WANT TO SAVE YOUR 
DATA (Y/N)?",CS: IF CS="¥" OR 
CS="YES" THEN GOSUB 2605 

3205 POP : PRINT : PRINT "OK": END 





3800 VTAB 18: TAB O: CALL -958: PRINT 


3405 INPUT “START CHECK NUMBER", 
I: VTAB 20: INPUT "END CHECK NUM 
BER", F:P=LM 

3410 GOSUB 2: IF P>=CM THEN 3440 
:P=P+S+S: IF I@R(0) THEN 3410 

P=P-S-S:B=P 

3415 GOSUB 2: IF P>=CM THEN 3440 
1P=P4S+S: IF F#R(O) THEN 3415 
:A=P 

3420 POKE 60, PEEK (2052): POKE 
61, PEEK (2053):A=CM: POKE 
62, PEEK (2052): POKE 63, PEEK 
(2053):A=B: POKE 66, PEEK ( 
2052): POKE 67, PEEK (2053) 


3425 CALL -868:CM=CH-P+B: IF Q=2 
THEN 1100: IF Q=7 THEN RETURN 


3430 VTAB 21: TAB O: INPUT "MORE (Y/N 
) 2,LS 

3435 IF LS="Y" THEN 3400: IF LS= 
"N" THEN RETURN : GOSUB 22: 
GOTO 3425 

3440 PRINT "BAD RANGE!!!": FOR N= 
0 TO 600: NEXT N 

3445 GOTO 2405 

3600 PalK 

3605 GOSUB 2: IF P>=CH THEN 3620 
+PaPeSeS: IF R(3)>Z THEN 3605 
1B=P-S-S 

3610 GOSUB 2:P=P+S+S: JF P>=CM THEN 
3615: IF R(3)<Z THEN 3610 

3615 P=P-S-S:AeP: GOSUB 3420:Ps8: 
GOTO 3605 

3620 PRINT : PRINT "DONE!": GOSUB 
22: FOR N=1 TO 300: NEXT N: 
RETURN 

3625 PalM 

3630 GOSUB 2: IF P>=CH THEN 3645 

=PoS+S: IF R(3)<Z THEN 3630 

j=P-S-S 

3635 GOSUB 2:P=P+S+S: IF P>=CM THEN 
3640: IF R(3)>Z THEN 3635 

3640 P=P-S-S:A=P: GOSUB 3420:P8: 
GOTO 3630 

3645 PRINT : PRINT "DONE!": GOSUB 
22: FOR N=1 TO 300: NEXT Nz 
RETURN 











CHECKBOOK (CONT.3) 





+ PRINT " #** MEMORY 

FOR A=1 TO 200: NEXT 
Az GOTO 1100 

30000 REM PRINT ROUTINES HOD BY KEN S 
ILVERHAN 

30001 RFM PROGRAM RE EDIDED BY MIKE N 
ADELMAN 8/79 

65534 REM MODIFIED BY H.J.CANNES 11/7 


8 
65535 REM COPYRIGHT 1977 BY APPLE 


COMPUTER: WRITTEN BY R.WIGGINTON 
A.C, MARKKULA 


FAST SORT 








#300. 360 

0300- AS 02 AD 04 08 85 0% AD 
0308- 05 08 85 05 B1 00 D1 0% 
0310- DO 06 C8 C& 03 DO FS 60 
0318- 90 08 AS 08 85 00 AS 05 
0320- 85 01 60 00 00 C9 80 FO 
0328- 12 C6 IF 30 07 D0 O% C9 
0330- C1 66 1€ 60 24 1E 30 FB 
0338- &C FO FD A9 08 65 IF AD 
0340- 8D 24 1E 10 F3 60 A2 32 
0348- AO 00 60 00 08 4A 4A 4A 
0350- 00 

*300LLL 

0300- A& 02 Loy $02 
0302- A808 08 = LDA $0808 
0305-85 0% STA $04 
0307- AD 0S 08 LDA $0805 
030A- 85 05 STA $05 
030¢- 81 00 LDA ($00),¥ 
030E- 01 04 CHP ($08),¥ 
0310- D0 06 BNE $0318 
0312- cB INY 

0313- C4 03 cPy $03 
0315-00 F5 BNE $030C 
0317-60 RTS 

0318- 90 08 Bcc $0322 
O31A- AS 0% LOA $04 
031C- 85 00 STA $00 
031E- AS 05 LDA $05 
0320- 85 01 STA $01 
0322-60 RTS 
0323-00 BRK 
0324-00 BRK 

0325- C9 6D CHP SBD 
0327- FO 12 BEQ $0338 
0329- C6 F vec SIF 
032B- 30 07 BHI $0334 
032D- D0 0% BNE $0333 
032F- C9 C1 CHP ASI 
0331- 66 1E ROR SIE 
0333- 60 RTS 
0334-24 1E BIT SIE 
0336-30 FB BHI $0333 
0338- 4C FOFD MP SFOFO 
0338-9 08 LDA #808 
0330- 85 IF STA SIF 
033F- A9 8D LDA #S80 
0341-24 1E BIT SIE 
0343-10 F3 BPL $0338 
0345- 60 RIS 

0346- AZ 32 Lx #832 
0348- AO 00 uy #800 
‘034A- BD 0008 = LDA $0800, 
0340-44 LsR 

O34E- 4A Lsr 

034F- 4A LSR 

0350- 00 BRK 


BON VOYAGE 


sy vom TO@MAZZINI 





We bid adieu this month to a friend of 
the Apple Core with whom we have all 
spent a great deal of time. But while 
I'm sure we shall long remember him, 
we are all certainly glad to be rid of 
him. No, I'm not speaking of the 
Apple Core librarian, and no 
ground-swells need apply; I am talking 
of course of good old ESC A. 


"Going?", you ask incredulously, "ESC 
A?" "But however will we steam past 
those huge horrible holes in our 
Alsted quotes and rem statements?" 
Enter stage left our hero, POKE 33,33. 
Yes, our old friend POKE, helping us 
out of yet another Jam. Try him out 
the next time you have to copy a 
Usted print statement. 














Press ESC (shift) P (return); then 
type "POKE 33,33" (return). Now LIST 
your line(s) to be edited. You will 
Rote that the print statement Is all 
scrunched up* with no extra spaces on 
the left-hand side. Now COPY over the 
line, using the forward arrow. Since 
you have set a scrolling window 33 
characters wide, the cursor will 
automatically jump to the next line as 
soon as it reaches the right margin of 
your text. How do you get out ot this 
mode? Just type "TEXT". This little 
trick will work in both Integer and 
Applesoft. And whom do we have to 
thank? Well, {t appears everybody in 
the known world was aware of this one 
except the Apple Core, so I guess we 
have to thank J. Alfred Glitch for 
keeping us In the dark so long. 
Thanks a lot, Alf. 


*This author has been asked to define 
the term "scrunch". In this author's 
opinion, those cretins who asked hie 
to do so should spend a little more 
time studying their technical manuals 
and a little less time criticizing 
those who would utilize proper 
terminology. “Scrunch” 1s, of course, 
an historical term dating from the 
late 40's and the original Apple, 
ENIAC. It was short for, 
appropriately enough, ESC CRUNCH, a 
command which would cause a 
shift-right of all the electrons 
avallable in the entire five-story 
building. Needless to say ESC CRUNCH 
was the ENIAC's single most powerful 
instruction; so powerful it lead to 
the computer's eventual downfall, when 
4n operator carelessly punched it up 
while using the full 30K of core and 
the right side of the building 
collasped from the sheer weight of the 
electrons. 


MISCELLANEOUS 


POKE 33,33 


BY LARRY DANIELGON 


As we saw in last month's article, BON 
VOYAGE by Bruce Tognazzinl, POKE 33,33 
allows us to edit our listed prograns 
much easier, without using the escape 
characters. When listing sections of 
a program with amy printer, I 
discovered that by using POKE 33,33 
first, the printer more efficiently 
uses Its 80 character width 
capability. The POKE 33,33 
enables the printer to List fast 
use less paper as it does not have to 
perform as many carriage returns. 





MAKE A BOX 


BY MAX 'J. WAREFF 


Placing program headings within 
borders adds to presentations. This 
1s a simple routine which will create 
@ box or border for headings. 


The first line draws the top border. 


10 VTABS: HTAB9: FOR X=1 10 23: PRINT 
wens: NEXT 


The second line draws two sides. Note 
how the ping-pong effect 13 achieved 
in the single Line by the use of the 
semi-colon after the first PRINT 
command 





15 FOR X= 1 TO 13: HTAB9: PRINT 
HTAB32: PRINT + NEXT 





The last line closes the box. 


20 VTABI6: HTAB9: FOR X=1 TO 23: PRINT 
mens: NEXT 


Adjust the tabbing carefully for 
Position, and the loop dimensions for 
size of the box. The three lines can 
Feadily be combined into a single line 
Subroutine by adding a colon after 
each terminating NEXT. 


The box can be entered for 
Introduction and credit by succeeding 
lines using VTAB's and HIAB's to 
ascend the screen. One of caut 
Using PRINT TAB (X) commands to enter 
the box will not be successful, 
because those necessary but nasty 
seml-colons suppress carriage returns. 
HTAB commands will perform, PRIKT 148 
(X) WILL not! Try tt and see. 








One final note: with ‘ANOY'S KEYBOMO 
FILTER", some very striking borders 
can be created. 


CHARTS & TABLES 





HEXADECIMAL Aajesbi.a ‘oxshione: ah Needy oneness wa 


your Apple. You will find it cuts 














O¥ SON Sanriete down on your programming frustrations. (Saniton = A 
While programming I often noticed the “56 = C8 
need to convert from hexadecimal to 23864 = A2C8 
decimal. There are several programs 
available which will do this for you, EXAMPLES NEGATIVE DECIMAL 
but using them necessitates To 
discontinuing the present program, HEX TO POSITIVE DECIMAL 
running the converter, then resuming POSITIVE ADD 65536 
the prograi This is an awkward DECIMAL 
process. I read with interest J.A. ~23864 = 7 
Backman's Poor Man's Hex-Decimal-Hex azcB = 2 (4965536 
Converter in Peeking at Call APPLE AZ = 41472 palais 
Vol. I. However, that method cB =(+)200 41672 
suffered from the disadvantage of — -23864 = 41672 
requiring several additions or A2CB = 41672 
subtractions. There had to be a 
better way. HEX TO 
NEGATIVE 
I decided a larger table could cut DECIMAL 
down on the arithmetic. Also, I could 
take advantage of the fact that azcB = 2 
usually all that is required is 4 Hex A2 = -23808 
digits. I wrote the program which C2 = (+)-56 
generated the accompanying tables. = 
With them one can convert from hex to A2CB = ~23864 
decimal or negative decimal into 
either of the other number systems POSTIVE 
with Just one addition or subtraction. DECIMAL 
That sure beats the method they teach TO HEX 
In the books. Follow the examples 
which are included with the second 41672 = 2 
table to see how they work. (-2414672 = a2 
The highest Hex digit is on the 8 
table's left side. Going from Hex to 41672 = A2ce 
Decimal presents no problems. Just 
find the equivalent of the first two POSITIVE DECIMAL 
digits in the lower table and add it To 


NEGATIVE DECIMAL 





to the equivalent of the last two SUBTRACT 65536 
digits in the upper table. When going 

from negative decimal to hex, first 41672 = 7 

find the largest number in the body of (965536 

the second table whose absolute value ---- 

is smaller than the given number. 23864 

Then subtract that number from the 41672 = -23866 





givén number and find the difference 
In the upper table. 


THE APPLEHEADS R. & E. HANCE 
“Motherboard.” Here 
is the CPU, see, and 
{\these are ROM chips... 

































0.K. now, I'm 
going to open 
up the APPLE 
and show you.. 


and there are your 
RAM chips and these 
are the plugs for 

your interface cards, 
your Programmer's 

Aid, your Applesoft 
ROM card, your.... 


So much for your 
Motherboard. Now 
how about your 






















HEXADECIMAL TO POSITIVE DECIMAL 


Baad 
ti EE 
ier ne fie iis 3 350 = 238 i 


5120 5376 5632 5888 6144 6400 6656 6912 7168 7424 
tsa uaa ore 300 9216 9472 9728 9984 10240 10496 10752 11008 11264 11520 
12288 12544 12800 13056 13312 13568 13824 14080 14336 14592 14848 15104 15360 rat 
16384 16640 16896 17152 17408 17664 17920 18176 18432 18688 18944 19200 pert ae 
20480 20736 20992 21248 21504 21760 22016 22272 22528 22784 23040 23296 ror 5 7004 
24576 24832 25088 25344 25600 25856 26112 26368 26624 26880 27136 pit er ies 
28672 28928 29184 29440 29696 29952 30208 30464 30720 30976 31232 er Seio 36036 
32768 33024 33280 33536 33792 34048 34304 34560 34816 35072 35328 acon aes 40152 
36864 37120 37376 37632 37888 38144 38400 38656 38912 39168 39424 a qaoa2 44288 
40960 41216 41472 41728 41984 42240 42496 42752 43008 43264 43520 Gee iiizs 40364 
45056 45312 45568 45824 46080 46336 46592 46848 47104 47360 47616 ee aoe sal 
49152 49408 49664 49920 50176 50432 50688 50944 51200 51456 517% seaet 32500 26576 
53248 53504 53760 54016 54272 54528 54784 55040 55296 55552 5580! 


60 60416 60672 60928 
57344 57600 57856 58112 58368 58624 58880 59136 59392 59648 Rone ae 64512 64768 65024 


P 61440 61696 61952 62208 62464 62720 62976 63232 63488 63744 4512 64768 0 


20 23 


fj ere oNw > word: 


on 


jo SSeeseriearsen. 


1 
6 
A 
B 
¢ 
D 
EB 
FP 
HEX. 
i 
1 
2 
3 
4 
5 
6 
i 
8 
9 
A 
B 
Cc 
D 
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HEXADECIMAL TO NEGATIVE DECIMAL 


A IDOM OI 
pals setriren ta) 
uu htt 

DOO 
SanakSanos| 
CARO 


Ott aeseert 
Cee 


SOBRE IOS 


iiedbdrdod 


Ro 


9 -28416-28160-27904-27648-27392-27136-26880-26624-26368-26112-25856-25600-25344-25080-24832-24576 

A ~24320-24064-23808-23552-23296-23040-22784-22528-22272-22016-21760-21504-21248-20992-20736-20480 
B -20224-19968-19712-19456-19200-1 8944-1 8688-18432-18176-1 7920-1 7664-1 7408-1 7152-16896~16640-16384 
C -16128-15872-15616-15360-15104-14848-1 4592-1 4336-14080-13824-13568-13312-13056-12800-12544-12268 
D -12032-11776-11520-11264-11008-10752-10496-10240 -9984 -9728 -9472 -9216 -8960 -8704 -8448 -8192 
E -7936 -7680 -7424 -7168 -6912 -6656 -6400 -6144 -5883 -5632 -5376 -5120 -4864 ~4608 ~4352 -4096 
F _-3840_-3584 -3328 -3072 -2816 -2560 -2304 -2048 -1792 -1536 -1280 -1024 -768 -512 -256 


Chart by Rod Carlisle (Cider Press v2.6) 
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4d¢d-0000 4440-0099 4499-0089 4419-0099 
— poe : 
adi9-0008 4ddd-0088 d4AL8-007E d4d€8-0008 adddv-000V ai fv-008V aaLV-009V adtV-000V 
ay 
4446-0096 44196-0086 44€6-0006 44148-0098 4198-0088 i 
° 
me daLL-00%L 44€L-0004 = 4499-0089 4419-0099 dw 
OML 29Vd SOIHAVUYUD NOTLINIOSHA HOTH 
a) 
nH 
a 
nw a9Vd SOITHAVEYD NOTLAITOSAY 
I 
a 4di€-000€ aAdE-008E aALE-O0VE aat€-000€ 447-0097 a4A8Z-0087 us 


SaILITIIN 
avd O88Z 


4d€0-0000 





adiT-000T AaadT-008T aaLT-009T AdAET-OOOT 4440-0090 
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GRESwconsusone 


INTEGER BASIC 
TOKEN CHARACTER SET 


BY LINDA SLOVICK 











TOKENS CHARACTER 
HEX TOKEN DEC HEX TOKEN DEC HEX CHR DEC HEX 
0 [HIMEM:] 64 $40 §$ <string> 128 $80 NULL 1 
1 BOL 65 341 § asris 129 $81 C-A 133 at 
z “ 88 4 130 $82 c-B 19 C2 
i 83 8a 13h 38 G5 18 BGR 
5 SAVE 69 $45 133 $85 C-E 197 $¢c5 
6 CON 70 $46 134 $86 C-F 198 3c6 
07 ROW 71 $47 135 $87 BELL 199 §c7 
08 RUN 72 $48 136 $88 BS 200 §c8 
09 DEL 73° $49 137 $89 C-r 201 §c9 
A, <for DEL> 74 $4a 138 $8A LF 202 §ca 
0B NEW 75 348 139 3B C-K 203 $cB 
OC CLR 76 $4c 140 $8c C-L 204 $cc 
D AUTO 77 $4D 141 $8D CR 205 §cD 
E <for AUTO> 78 $4E DIM <strings> 142 $8E C-N 206 $CE 
OF MAN 79 $4F DIM <numbers> 143 $8F C-O 207 §cF 
10 HIMEM: 80 §50 TAB 144 $90 C-P 208 §D0 
11 LOMEM: 81 $51 END 145 $91 C-Q 209 $D1 
12 + 82 $52 INPUT <string> 146 $92 C-R 210 $D2 
13 = 83 $53 INPUT <$ or ""’S> 147 $93 C-S 211 $D3 
14 * 84 $54 INPUT <number> 148 $94 C-T 212 $p4 
15 / 85 $55 FOR 149 $95 advance 213 $D5 
16 = 86 $56 = <FOR/NEXT> 150 $96 C-V 214 $D6 
17 ¢ 87 $57 TO 151 $97 C-W 215 7 
18 >= 88 $58 STEP 152 $98 c-x 216 $p8 
19 > 89 $59 NEXT 153 $99 C-¥ 217° $D9 
1A <= 90 $5A 154 $9A C-Z 218 $DA 
1B <> 91 $58 RETURN 155 $98 ESC 219 $pB 
IC < 92 $5c GOSsUB 156 $9c CS-L 220 $pc 
1D AND 93 $5D REM 157 $9 CS-M 221 $DD 
1E OR 94 $5E LET 158 $9f CS-N 222 $DE 
1F MOD 95 $5F GOTO 159 $9F CS-O 223 gDF 
20 9 $60 IF 160 $A0 space 224 $E 
21 + 97 $61 PRINT <""’S> 161 §Al 1 225 $El 
22 ( 98 $62 PRINT <X or X$> 162 $A2 226 $E2 
23 99 363 PRINT 163 3A3 227 xr} 
24 THEN <line #> 100 $64 POKE 164 $A4 $ 228 Eh 
25 THEN <stmt> 101 $65 165 $A5 223 35> 
26 , <string> 102 $66 COLOR= 166 $A6 & BU) iaee 
27 4 <number> 103 $67 PLOT 167 $A7 231 gE? 
28 * cbeginning> 104 $68 168 §$a8 ( 232 EB 
29 " <ending> © 105 $69 ALIN 169 a9 ) 233 3E9 
28 f 106 ca kr i aR + 235 SEB 
a I 108 36¢ VLIN i GA) aE 
2k PEEK Ifo ee Ar 174 §aE « 238 SEE 
2F BND 111 $6F VTAB 175 gAF 4 333 Fo 
30 SGN 112 $70 = <string> 176 $80 ? 341 $F 
31 ABS 13 371 = 177? gBl D 242 $2 
32 PDL 114 372 178 ee 243 $3 
32 ROX Hd 373 1h3 Ba 3 244 $Fh 
asf Lie. 474 WISE: <teoasco” ier 383 5 245 fF5 
117 6 br 
36 = <signe> 118 $76 LIST 182 BSF bay 7 
37 NOT 119 $77 POP 183 BBB 348 $F8 
38 120 $78 NODSP <string> 1 BS 8 249 §F9 
ao 121 $79 NODSP <number> 183 yB? ? a3 OA 
BA tl 122 $7A NOTRACE ee ee 251 SEB 
3B LEN 123 $78 DSP <string> 183 spc & 232 Src 
3C ASC 124 $7C DSP <number> 18g yBc 253 SED 
Bee ig i; RE 
Br t 138 ie IN 191 $BF ? 
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APPLESOFT INTERPRETER SET 


ROM ADDRESSES DOOO-F7FF 
SUBROUTINES - ENTRY POINT LISTING: 











NAME OF SUB FUNCTION ADDRESS NAME OF SUB FUNCTION abonase 
END TERMINATE EXECUTION weer RESTORE RESTORE DATA PT 9848 
FR START OF FOR NEXT LOOP 9765 364 HOOK BRANCH TD MACH w¥4 
NEXT END OF FOR/NEXT LOOP socrs GoswB GOSUB_BRANCH FUNCTION x0 
DATA CEF OF A DATA STMT 0994 RETURN RETURN FROM GOSUB S96 
INPUT INPUT ROUTINE EXEC $0881 REM REMARK STATEMENT DB 
DELETE DELETE A LINE FUNCTION ¥ 320 STOP STOP PROGRAM $0860 
om DIMENSION A VAR FUNCT. SOF 08 ONGOTO ON GOTO DEB 
READ READ DATA ROUTINE D3E1 WAIT WAIT FUNCTION £783 
SETR SET GRAPHICS ROUTINE $38 LOAD LOAD TAPE PGM mae 
SETTXT SET TEXT MODE ROUTINE ¥ 394 SAVE SAVE TAPE PGM DAF 
PRE SET OUTPUT PORT $1E4 ter TEF USER FUNCTION = 312 
Inf SET INPUT PORT $100 POKE POKE MEMORY LOC S774 
CALL CALL USER MACH SUB $ 104 PRINT PRINT OUTPUT SADA 
PLOT PLOT A POINT-LORES ¥ 226 CONT CONTINUE EXECUTION 0895 
HLIN DRAW HORZ LINE -ORES $231 LIST LIST PROGRAM DAS 
WIN ORAW VERT LINE -LORES $280 CLEAR CLEAR VARIABLES 0669 
SETHR-2 SET HIRES PAGE 2 ¥D3 GET GET A CHAR INPUT Dae 
SETHR-1 SET HIRES PAG 1 ¥ D0 Bc] SIGN OF NUMBER 89 
SETHRCOL SET HIRES COLOR Es INT INTEGER FUNCTION 023 
LINE ORAW LINE HIRES X,Y ¥E9 ABS ABSOLUTE VALUE SBAF 
ORAW CRAW SHAPE SPECIFIED $764 FRE FREE MEMRRY DE 
XORAW EOR ORAW SHAPE $76 POL GAME PADOLE SOFCO 
HTAB HORZ TAB X # SPC. $2 POS POSITION IN HIRES Sar 
CLRSRE CLEAR SCREEN $c57 SR SQUARE ROOT ED 
SETROT SET ROTATION SHAPE $71c RND RANDOM NUMBER SEFAE 
SETSCALE SET SCALE FOR SHAPE ¥ 722 LOS LOG x BASE 10 Sol 
SHLOAD LOAD A SHAPE TABLE $770 is] EXPONENT FUNCTION SEFEA 
SETTRACE TURN ON TRACE ¥ 260 SIN SIN FUNCTION FFL 
TRACEOFF TURN OFF TRACE ¥ 26E TAN TANGENT FUNCTION FO 
SETNORM SET NORMAL TEXT ¥ 272 ATN ARCTANGENT FUNCTION FOE 
INVERSE SET INVERSE TEXT ¥ 276 PEEK PEEK MEMORY 764 
FLASH SET FLASHING TEXT $27 LEN LENGTH FUNCTION Ea6 
COLOR SET LORES COLOR $F 246 STRS CHAR -NUMERIC VAR SxS 
RETURN RETURN FROM SUB $0968 VAL VALUE STRING CHAR 707 
VTAB VERTICLE TAB ¥ 255 ASC ASCII FUNCTION SEs 
HIMEMSET SET HIMEM POINTER 285 CHS CHAR STRING FUNCTION = 646 
LOMEMSET SET LOMEM POINTER FAS LEFTS LEFT JUSTIF 1E0 S654 
ONERR SET ONERR FLAG F XA RIGHTS RIGHT JUSTIFIED E66 
RESUME CONTINE FROM ONERR ¥ 316 MIDS MID STRING FUNCTION E61 
RECALL RECALL VAR TABLE -TAPE $B? FAD FLOATING POINT + xO 
STORE SAVE VARTALBLES-TAPE $308 FSU FLOATING POINT ~ E79 
SETSPD SET SPEED FOR OUTPUT $261 FMULT FLOATING POINT x SE 981, 
Let LET ASSIGN VAR TABLE SDA45 FOLV FLOATING POINT / SEA 
GoTo GOTO BRANCH FUNCTION 930 FPAR FLOATING POINT PWR Pity 
RUN EXECUTE A PROGRAM pal AND AND FUNCTION SOF 54 
IF IF TEST FUNCTION Ea OR OR FUNCTION Fe 
DOREL 00 RELATION TEST Bk NEG NEGATE FUNCTION SEECF 

NOT NOT FUNCTION E97 

THE APPLEHEADS 
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PEEKS - 


proper address from an Integer BASIC program. 
may not be executed in the middle of a line in an Inte: 


BASIC program: The CALL must be alone or at the end of a 


program line. 
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THANKS TO CHRIS ESPINOSA, PAUL WYMAN, & APPLE COMPUTER 


CALLS 


Most of these functions can be executed by a CALL to the 


‘Some CALL: 





EXPLANATION 





HEX ADD CALL 
$E000 CALL -8192 
$E008 CALL 8117 
$6836 CALL -6090 
$F07B CALL -3973 
F180 CALL -3776 
$666 CALL -2858 
F800 CALL -2048 
$819 CALL -2023, 
$828 CALL -2008 
$832 CALL -1998 
$F847 CALL -1977 
SFOSF CALL -1953 
F865 CALL -1988 
$F871 CALL -1935 
SFAK3 CALL -1469 
SAGE CALL -1402 
SFA92 CALL -1390 
SFAD7 CALL -1321 
SFBIE CALL -1250 
SFB2F CALL -1233 
$FB39 CALL -1223 
SFB4O CALL -1216 
$FB4B CALL -1205 
$7B63 CALL -1181 
$FB84 «CALL -1148 
SFBC1 CALL -1087 
SFBES CALL -1052 
SFBFS CALL -1036 
SFBFD CALL -1027 
SFC10 CALL -1008 
SFCIA CALL -998 
$FC22_ CALL -990 
$FC2C CALL -980 
SFCIC CALL -868 
SFCH2 CALL -958 
$FC58 CALL -936 
$FC62 CALL -926 
$FC66 CALL -922 
$FC70 CALL -912 
SFCIC CALL -868 
SFCAB CALL -856 
$FDOC CALL -756 
$FD1B CALL -741 
$FD35 CALL -715 
fez CALL -670 
$F067 CALL -665 
SFDGA CALL ~662 
SFO CALL -657 
SFDOA CALL -550 
$FUE3 CALL -541 
SFOED CALL -531 
SFDFO CALL -528 
SFEZC CALL -868 
SFE36 CALL 858 
SFESE CALL -818 
SFEGO CALL -388 


Reset Integer BASIC 
Integer Basic Kill 
=Clear workspace 

List Integer program 
Run Integer 

Load Integer Program 
from tape 

Save Integer Program 
to tape 

Enter mini-asseabler 
Plot a point 

Oraw a horizontal 
line 

Draw a vertical line 
Clear Graphic Screen 
Calc. graphics baseaddress 
Change Color +3 
Adjust color byte for 
both halves equal 
Read a point of the 
low res graphics screen 1 
Perform a single step 
IRQ Handler 

Break handler 

Display user reg 

Read paddle controls 
Screen initialization 
Reset TEXT mode 

Set text screen 

Set graphics screen 
Set normal window 
Multiply routine 
Divide routine 
Calculate text base 
address 

Produce a bell 
Advance Cursor 

Output a reg as ASCII 
on text screen 1 
Backspace Cursor 

Move cursor up 
Perform vertical tab 
Escape functions 
Clear to end of line 
Clear to end of screen 
Home and Clear 
Carriage return 
Cursor down-line feed 
Scroll screen 

Clear to end of Line 
it loop 

Wait for Keypress 
Monitor keyin routine 
Read key & per esc fun 
If necessary 

Perform a line cancel(/) 
Perform Line Feed and 
watt for input 
Prompt and wait for 
Input 

Get a Line 

Print a byte as 2 hex 
digits 

Print hex digit 
Output char. via user 
output 

Monitor char. output 
Perform memory move 
Perform memory verify 
Disassemble 20 instr. 
Set Inverse Mode 








SFEBS CALL -380 Set Normal Mode 
SFEBO CALL -336 Jump to basic 
SFEB3) CALL -333 Continue basic 
SFEBF CALL -321 Display registers 


A,X,Y,P,S Current Values 


$FEC2 CALL -318 = Perform monitor trace 


SFECD CALL -307 Write to tape 

SFEFD CALL -259 Read from tape 

SFF3A CALL -198 Ring bell 

SEFAA CALL -182 Save registers 

SFF59 CALL -167 Enter System Monitor, 
reset text mode 

SFF65 CALL -155 Enter System Monitor & 
Ring Bell 

SFF69 CALL -151_— Enter System Monitor 
No beep 

SFF70 CALL -14% — Scan Input buffer 

SFF70 CALL -188 — Scan the Input buffer 


The following CALLS require various address to be POKEd 
into locations in the Apple's memory. These locations are 
organized into three "registers", called Al, A2, and As. 
The actual address for Al, A2, and A& can be found in the 
section on PEEKs. 





$FE2C CALL -868 = Move a Range of Memory 
SFE36 call -858 Verify Two Ranges of Memory 
SFECD CALL -307 Write a Range to Tape 
SFEFD CALL -259 Read _a Range from tape 
$FD92 CALL -622_— Print Al in Hexadecimal 


The following subroutines require you to POKE several 
values into some memory locations. These locations 
represent the microprocessor's A,X,Y and Status regusters, 
and the Stack Pointer (These are the same registers you can 
examine with the Monitor's CTRL E command). For the 
address of these locations see section on PEEKs. 


SFEB6 «CALL -622 Call a Subroutine 





(This loads the internal registers with the values you have 
POKEd into locations 69 through 73, and Jumps to the 
subroutine whose address has been POKEd into locations 58 
and 559 (PCL & PCH). The subroutine acts just as if it had 
been CAlLed from BASIC directly, and returns accordingly. 


SFEBF «CALL -321 Di splay Registers (69 
thru 73), 
SFODA CALL -550 Display the A-register 


in Hex (location 69). 


KES 


HEX POKE EXPLANATION 
VALUE LIMITS 


Window Lett 
0-39 


Window Width 
0-40 


$0022 POKE 34,X Window Top 
0-26 
$0023 POKE 35,X Window Botton 
0-26 
$0024 POKE 36,X Cursor Hort, 
$0025 POKE 37,X Cursor Vertical 


GBASL Graphics baseaddress 


BASL Text sei 
address we" Dae 
BASH 


BASZL Temp. 
BAS2H emp. base addr. 


70 





Color (0-15) 
Mode 


POKES (CONT.) 


COUT text modes 
255-Normal mode 
63-Inverse mode 
127-Flashing mode 


$0032 POKE 50,x 


$0033 POKE 51,x Prompt Character 
$0036 POKE 54,L = CSWL 
$0037 POKE 55,H © CSWH: CHARACTER OUTPUT 
$0038 POKE 56,L KWL 
$0039 POKE 57,H —_KSWH: CHARACTER INPUT 


The POKEs below may be used before a CALL -327 to CANL a 
machine Language program with parameters. 


$003A POKE 58,L PCL 
$0038 POKE 59,H PCH 

$0085 POKE 69,X A-register 
$008 POKE 70,X ‘X-register 
$0087 POKE 71,X Y-register 
$0088 POKE 72,X Status register 
$0089 POKE 73,X Stack Pointer 


POKES below (60-67) can be used in conjunction with various 
CALLs to perform many System Monitor commands from BASIC 
(see CALL List). 





$003C  POKE Att 
$0030 POKE ANH 
$003E —POKE AL 
$003F —POKE A2H 
$0082 POKE we 
$0083 POKE AM 
CSCO10 POKE-16368,X Clear Keyboard 
Strobe 
$C020 POKE-16532,X Toggle Cassette output 
$C030 POKE-16336,X Toggle Speaker 
$CO40 POKE-16320,X Strobe Gane 1/0 
$C050  POKE-16305,X Set Graphics Mode 
$COS1 POKE-16303,X Set Text Modes 
$C0S2  POKE-16302,X Full-Screen Graphics 
$C053 POKE-16301,X Mixed Text and Graphics 
C054 POKE-16300,X Display Primary Page 
$C055 POKE-16299,x Display Secondary Page 
$056 POKE-16298,X Set Block Graphics 
$057 POKE-16297,X Set Dot Graphics 
POKE-16384,X Read Key to see which key. 


A POKE to one of the locations below specifies the state of 
the output on the pin of the Game I/0 Connector associated 
with that Annunciator. Set is +5 volts; clear is 0 volts. 


$CO58 — POKE-16296,x Clear, 
SC059_ POKE-16295,x Set Annunclator 0 
SCOSA — POKE-16294,X Clear, 
‘SCOSB  POKE-16293,x Set Annunciator 1 
SCOSC — POKE-16292,x Clear, 
$COSD — POKE-16291,x Set Annunclator 2 
SCOSE — POKE-16290, Clear, 
SCOSF — POKE-16289,x Set Annunciator 3 


EKS 


Ex PEEK EXPLANATION 

$0020 X=PEEK(32) Window Left 

$0021 X=PEEK(33) Window Width 

$0022 x=PEEK( 34) Window Top 

$0023 x=PEEK(35) Window Bottom 
$0028 X=PEEK( 36) Cursor Horizontal 
$0025 X=PEEK(37) Cursor Vertical 
$0030 X=PEEK(48) Color 

$0032 X=PEEK(50) Video mode 

$0033 X=PEEK(51) Prompt Character 
C000 -X=PEEK(-16384) Keyboard 

SCO10 X=PEEK(-16368) Clear key. strobe 
SCOSO _X=PEEK(-16304) GRaphics mode 
$CO51_X=PEEK(~-16303) TEXT mode 

SCos2_ X=PEEK(-16302) all TEXT or GRAPHICS 


1 


$CO53_-X=PEEK(-16301) mix TEXT and a 

GRaphics mode 
$COS4 = X=PEEK(-16300) Primary page 1. 
$COS5 -X=PEEK(-16299) Secondary page 2. 
SCOS6 —_X=PEEK(-16298) LO-RES GRaphics 
SCOS7 X=PEEK(-16297) HI-RES GRaphics 
$C060 X=PEEK(-16288) Cassette Input 
$C061__X=PEEK(-16287) Read Pushbutton controller 0 
$C062__X=PEEK(-16286) Read Pushbutton controller 1 
$0063 X=PEEK(~-16285) Read Game 1/0 Pin & 


X = PEEK (218) + PEEK (219) x 256 sets X equal to the line 
number of the statement where an error occurred Lf an 
ONERRGOTO statement has been executed. 

IF PEEK (216)>127 THEN COTO ----. If bit 7 at memory 
location 222 (ERRFLC) has been set true, then an ONERRCOTO 


statement has been encountered. 

POKE 216,0 Clears ERRFLG so that normal error messages will 
occur. 

Y = PEEK (222) Sets variable Y to a code that described 
type of error that caused an ONERRGOTO jump to occur. 





The locations below may be PEEKed to determine what type of 
Apple Intelligent Interface card {s installed In each slot. 
If X is 4% - Communications Card, 162 - Disk Controller, 72 
- Heuristics Speechlab. Others not known at this time. 


$C100 -X=PEEK(-16128) Slot 1 
$C200  X=PEEK(-15872) Slot 2 
$C300  X=PEEK(-15616) Slot 3 
$C400 —-X=PEEK(-15630) Slot & 
$C500  X=PEEK(-15104) Slot 5 
$C600 X=PEEK(-14848) Slot 6 
$€700 -X=PEEK(-14592) Slot 7 


A PEEK at this location determines which Monitor ROM Is 
Installed in the Apple. If X Is 0, then the Auto-Boot 
Monitor 1s in; 1f X is 1, then the original Apple Monitor 
ROM is installed. 


SFAFF X=PEEK(-1281) Monitor 
The PEEKs below all require you to convert the values in 
two separate memory locations into one decimal number which 
BASIC can handle. This conversion involves two steps: 

first, obtaining the values in the locations; and second, 
amalgamating the two values into one decimal number. The 
following pairs of PEEKs give two values, stored in the two 


variables L and H. 





8 L=PEEK(40) BASL 
S009 H=PEEK(91) BASH-Cursor Base Address 
$0036 L=PEEK(54) cw. 
$0037 H=PEEK(55) CSWH-Output Subroutine 
$0038 L=PEEK(56) KSML 
$0039 H=PEEK(57) Keal Input Subroutine 
SOO4E — L=PEEK(78) 

So04F = H=PEEK(79) RNDL-Random Number Seed 
SOO4A — L=PEEK(74) LOMEML 

$0048 -H=PEEK(75) LOMEMH 

$008C — L=PEEK(76) HIMEML 

$0040 H=PEEK(77) HIMEMH 

$O0CA L=PEEK(202) PPL 

$00CB -H=PEEK(203) -—-PPH-Program Pointer 
$00CC L=PEEK(204) = PYL 

S00CD -H=PEEK(205) —- PVH-Varfable Pointer 
$000 L=PEEK(220) = LINEL 

$0000 H=PEEK(221) LINEHL ine Number 

SO0E0 L=PEEK(224) 

Soot HIPEEK(225) __STL-Beginning of Statement 





NOTES 
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